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ABSTRACT 


This  report  provides  the  Instructions  for  using  a  suite  of  computer 
codes  to  calculate  approximately  the  three-dimensional  boundary  layer 
on  ship  hulls.  There  are  two  sets  of  codes  for  computing  boundary 
layers.  One  is  for  computing  a  first-order  approximation  and  is  based 
on  a  slenderbody  potential  and  the  small  crossflow  assumption.  The 
secor  J  set  of  codes  uses  a  general  three-dimensional  calculation  method 
for  the  potential  flow  and  solves  the  three-dimensional  momentum  Integral 
boundary-layer  equations  without  making  restrictive  assumptions  on 
the  magnitude  of  the  crossflow.  An  example  problem  is  presented  for 
both  methodr. 


ADMINISTRATIVE  INFORMATION 

The  work  supported  herein  was  supported  by  the  General  Hydromechanics  Research 
Program  under  Task  Area  SR  023-01-01  and  Work  Unit  1552-070. 


I.  INTRODUCTION 

This  manual  provides  the  instructions  for  using  a  suite  of  computer  codes  to 
calculate  approximately  the  three-dimensional  turbulent  boundary  layer  on  ship  hulls. 
The  development  of  the  methods  programmed  into  this  suite  of  boundary-layer  codes, 
from  here  on  designated  BLC  for  the  entire  system  of  programs,  is  given  in  five 
references  (1-5) . 

The  package  BLC  has  two  sets  of  codes.  The  first  set  of  codes  is  for  computing 

a  first-order  approximation  to  the  three-dimensional  boundary  layer  on  fairly  fine 

ships  such  as  a  Series  60,  Block  60  hull.  These  codes  use  slender-body-theory 

potential  flow^,  at  zero  Froude  number,  to  obtain  the  input  pressure  distribution. 

Secondly,  the  three-dimensional  momentum  Integral  equations  with  the  assumption  of 

2 

small  crossflow  in  the  boundary  layer  are  solved  in  streamline  coordinates  .  This 
is  another  reason  restricting  these  codes  to  slender  ships.  This  set  of  codes  is 
very  easy  to  use  and  inexpensive  to  run  on  a  computer  so  that  for  a  first  estimate 
of  the  ship  boundary  layer,  it  may  be  useful  to  employ  them.  Run  time  is  less  than 
two  minutes  for  this  code,  whereas,  twenty  to  thirty  minutes  is  required  by  the 
second  set  of  codes. 

The  second  set  of  codes  in  BLC  is  more  general  in  that  the  slender-body-theory 
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i 
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potential  flow  calculation  method  is  replaced  by  a  general  three-dimensional  cal¬ 
culation  method.  Furthermore,  the  three-dimensional  momentum  integral  boundary- 
layer  equations  are  solved  in  a  general  orthogonal  surface  coordinate  system  with¬ 
out  making  restrictive  assumptions  on  the  magnitude  of  the  crossflow. 

We  shall  briefly  describe  below  the  three  main  segments  of  BLC  which  make  up 
the  second,  more  general,  boundary-layer  calculation  method.  The  geometry  program 
represents  the  ship  hull  by  a  surface  equation  and  is  common  to  both  the  first  and 
second  set  of  programs  in  BLC. 

The  code  for  representing  the  ship  hull  by  a  surface  equation  from  which  all 

the  necessary  geometrical  data  are  computed  is  based  on  the  theory  published  by 

3 

von  Kerczek  and  Tuck  .  The  potential  flow  data  is  computed  by  a  code  based  on  the 

4 

surface  doublet  distribution  that  was  developed  by  Chang  and  Pien  ,  and  the  three- 
dimensional  turbulent  boundary  layer  is  computed  by  the  momentum  integral  method 
described  by  von  Kerczek  and  Langan^,  We  refer  the  reader  to  references  (3)  -  (5) 
for  further  details.  We  anphaslze  at  the  outset  that  the  BLC  provides  only  appro¬ 
ximate  results  that  are  valid  for  (1)  ships  moving  straight  ahead  at  zero  Froude 
number,  i.e.,  the  free  surface  is  assumed  to  be  plane,  no  waves  are  taken  into 
account;  (il)  the  B.L.  flow  is  unseparated  and  in  fact  very  thin  compared  with  the 
local  radius  of  curvature  in  any  direction  on  the  body,  so  that  the  stern  region  is 
not  properly  modeled;  and  (iii)  the  boundary  layer  is  fully  turbulent,  i.e.,  the 
laminar  and  transitional  parts  of  the  boundary  layer  near  the  bow  are  not  modelled. 

The  underwater  part  of  the  ship  hull  is  represented  by  a  surface  equation  that 
consists  of  the  conformal  mapping  of  a  unit  circle  onto  the  ship  section  and  the 
polynominal  interpolation  of  these  sectionwise  mappings  along  the  length  of  the 
ship  (see  reference  (1)),  This  type  of  surface  representation  can  be  used  for  most 
conventional  ship  hull  shapes  but  it  excludes  two  important  geometrical  features 
often  found  on  ships.  The  first  exclusion  is  a  forward  protruding  bulb.  The  second 
exclusion  is  the  rear  portion  of  cruiser-type  sterns.  These  exclusions  of  geometric 
forms  are  acceptable  since  the  boundary-layer  calculation  method  is  not  applicable 

in  these  regions  of  the  ship. 

4 

The  potential  flow  code  is  general  and  will  handle  any  nonlifting  fully-sub- 
merged  body  with  a  vertical  plane  of  symmetry.  The  restriction  to  submerged  bodies 
means,  for  the  present  situation,  a  double  ship  hull  in  which  free  surface  effects 
are  neglected.  The  code  is  based  on  the  calculation  of  the  doublet  strength  density 


on  the  surface  of  the  ship  that  will  result  in  potential  flow  tangency  on  the  sur¬ 
face.  The  method  consists  of  distributing  constant  strength  doublets  on  an  assem¬ 
blage  of  quadrilateral  surface  elements  that  approximate  the  actual  surface  of  the 
ship  and  then  solving  the  resulting  algebraic  equations  that  approximate  the  inte¬ 
gral  equation. 

The  numerical  solution  of  the  boundary- layer  equations  is  carried  out  by  a 
three-dimensional  momentum  integral-entrainment  method^.  In  this  method,  the 
boundary-layer  crossflow  can  be  large  but  the  accuracy  of  the  computer  results  is 
limited  by  the  very  rough  approximations  that  are  made  for  the  crossflow  profile 
shape,  the  rate  of  entrainment  coefficient  and  the  relationships  assumed  for  the 
crossflow  parameters  as  functions  of  the  streamwise  flow  parameters. 

It  is  possible  to  give  only  rough  estimates  of  the  level  of  accuracy  of  the 
computed  results  of  this  program  becasue  the  accuracy  varies  not  only  from  one  hull 
to  another,  but  also  on  various  parts  of  one  hull.  However,  we  have  shown  that  on 
one  model  hull,  the  SSPA-720  Model,  block  coefficient  0.675,  for  which  detailed 
experimental  boundary  layer  data^  were  available,  the  computed  values  of  stream- 
wise  momentum  and  displacement  thicknesses  and  surface  shear  stresses  that  were 
computed  by  the  second  system  of  codes  in  BLC  were  mostly  within  10  percent  of  the 
experimental  data^.  Larger  discrepancies  between  the  computed  and  experimental 
results  occurred  only  In  localized  regions  of  the  hull.  For  example,  very  close 
to  the  stern  (within  the  last  5  percent  of  the  ship  length),  the  experimentally 
determined  boundary  layer  becomes  very  thick  and  the  surface  shear  stress  approaches 
the  value  of  zero;  the  computed  values  of  shear  stress  tend  to  overpredict  the 
experimental  values  by  as  much  as  100  percent  in  this  region.  Furthermore,  there 
is  a  qualitative  discrepancy  between  the  computed  and  experimental  values  of  dis¬ 
placement  and  momentum  thicknesses  and  surface  shear  stresses  along  a  streamline 
that  lies  very  close  to  the  keel  of  the  hull.  However,  in  general,  the  computed 
results  from  the  second  set  of  boundary-layer  codes  in  BLC  will  be  qualitatively 
correct  and  quantitatively  will  give  values  of  about  90  percent  of  the  experimental 
values  for  the  streamwise  displacement  and  momentum  thicknesses  and  surface  shear 
stresses  on  about  80  percent  of  the  hull  length,  exclusive  of  the  ends. 

The  crossflow  angle  of  6  that  measures  the  difference  in  direction  of  the  surface 
shear  stress  vector  and  the  local  direction  of  the  inviscid  surface  streamline  at 
the  surface  is  not  well-predicted  by  the  methods  of  BLC.  Over  most  of  the  hull 


surface,  where  B  is  fairly  small,  the  predictions  of  $  from  the  BLC  are  qualitat¬ 
ively  correct.  However,  near  the  stern  of  the  model  tested  by  Larsson^,  where  the 
experimental  values  of  6  become  a  little  more  substantial,  on  the  order  of  10-20 
deg,  the  predicted  values  of  BLC  are  substantially  different,  sometimes  even  having 
the  wrong  sign. 

The  numerical  methods  that  are  used  in  BLC  are  well-established  and  have  been 
tested  for  accuracy  as  a  function  of  step  or  panel  sizes.  The  recommended  step 
and  panel  sizes  given  in  Chapter  3  in  conjunction  with  the  descriptions  of  the 
input  schemes  have  been  ascertained  to  yield  at  least  a  2-3  percent  level  of  nu¬ 
merical  accuracy.  Further  reductions  of  step  and  panel  sizes  do  reduce  this  error 
accordingly. 

We  need  to  mention  here  that  empirical  boundary-layer  data  are  needed  to  start 
the  calculations  at  some  station  downstream  of  the  bow  stern.  The  effects  of  in¬ 
accuracies  in  this  starting  data  on  the  subsequent  boundary-layer  development  are 
not  knovm,  but  it  seems  that,  if  the  starting  station  is  located  in  a  favorable 
pressure  gradient  region,  then  the  downstream  development  of  the  boundary  layer  is 
not  too  sensitive  to  the  starting  conditions.  Some  experimentation  will  be  nec¬ 
essary  to  ascertain  this  for  individual  cases. 

The  rest  of  this  manual  is  organized  as  follows.  Chapter  2  gives  a  complete 
description  of  each  element  of  BLC  and  its  relationship  to  the  rest  of  the  pro¬ 
grams  in  BLC.  In  Chapter  3  we  present  a  detailed  discussion  of  the  operation  of 
the  programs  in  conjunction  with  an  example.  The  example  is  the  SSPA  Model  720, 
for  which  extensive  boundary  layer  data  exist^.  A  listing  of  the  program  is  given 
in  the  appendix. 


2.  PROGRAMS 


2.1  MAP22 

The  program  MAP22  fits  an  analytic  function  to  a  set  of  hull  offsets  which 

are  specified  at  K  stations.  It  fits  each  of  the  K  cross  sections  with  an  N-para- 

2 

meter  map  of  the  unit  circle  given  by  the  equation  : 


Z 


N 

I 

n=l 


3-2n 


(1) 


4 


Figure  1  shows  the  relationship  between  the  complex  Z  and  c-planes  and  also  shows  a 
typical  map;  Figure  2  shows  the  hull  coordinate  system.  In  the  program  the  mapping 
is  split  into  its  real  and  imaginary  parts;  so  at  the  I-th  station  it  takes  the 
form 

N 

X  =  3^  AN(I,J)  cos  (3-2J)6 

J=1 

N  (2> 

Y  =  I  AN(I,J)  sin  (3-2J)0 
J=1 


Once  the  AN's  are  computed,  the  program  fits  a  polynominal  in  S  to  the  parameters 
for  J=l,  2,  It  computes  the  coefficients  BN(L,J)  of  these  polynomials  by 

solving  the  linear  system 

KPK 

AN(I,J)  =  I  BN(L,J)  *  S(I)  **(L-1)  (3) 

L=1 

Each  polynomial  has  KPK  coefficients 

The  hull  is  represented  by  the  system  of  equations 


KPK 

X  (S,9)  =  I 

1=1 


KPK 

Y  (S,9)  =  r 

1=1 


(1-1) 

S  BN(I,J)  *  ^  cos(3-2J)9 

J=1 


I-l 

I  BN(I,J)  *  S  sin  (3-2J)9 
J=1 


(A) 


This  representation  is  used  throughout  the  suite  of  programs. 

The  number  of  offsets  given  at  each  of  the  K  stations  need  not  be  the  same; 

for  the  moment  let  P  offsets  be  given  at  station  I.  There  are  then  P  points  of 

the  unit  circle  in  the  fourth  quadrant  that  will  be  mapped  onto  the  P  points  of  the 

I  contour  corresponding  to  these  offsets.  Since  these  points  can  be  arbitrarily 

chosen,  there  are  P  values  of  9;  namely  9  (p=l,,,,,  P) ,  to  be  determined  in  addi- 

P 

tion  to  the  N  parameters  AN  (I,J).  There  are  then  2P  equations  to  be  solved  for 
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the  N  values  AN(I,J)  (J=l,  N)  and  the  P  values  of  0^  ;  namely  , 

N 

XMS(I,p)  =  Z  AN(I,J)  cos  (3-2J)9 
J=1  P 


N 

YMS(I,p)  =  Z  AN(I,J)  sin  (3-2J)e 

J=1  P 


(5) 


where  XMS  and  YMS  are  respectively  the  (x,y)  offset  of  the  P-th  point.  If  N=P, 
unacceptable  wriggles  occur  in  the  approximating  cross  section  between  the  spec¬ 
ified  points;  instead,  N  is  taken  to  be  of  the  order  of  1/2  to  2/3  P  and  Equation 
(5)  is  solved  in  a  least  squares  sense.  Specifically,  the  AN's  and  9^  are  chosen 
to  minimize  the  error 

p 

'■  '2  t  t  0 

E  =  Z  (E  +  E  ••)  (6) 

p=l  P  P 

where 

.  N 

E  =  XMS(I,p)  -  Z  AN(I,J)  cos  (3-2J)0 
P  J=1  P 

1.  N 

E  =  YMS(I,p)  -  Z  AN(I,J)  sin  (3-2J)0 
P  J=1  P 

Not  only  does  this  approach  result  in  a  smooth  form;  it  also  fits  the  data  points 
in  a  manner  that  minimizes  the  squared  distance  between  the  data  points  and  the 
generated  form.  The  relations 


3E 

0  =  - — 

3AN(I,J) 


L  (AN;0  ) 
P 


0  = 


9E 


P 


=  (9  ;AN) 

P 


(7) 


are  necessary  conditions  for  E  to  have  a  minimum,  where  L  and  N  are  given  by  von 
Kerczek  and  Tuck  .  The  system  L  =0  is  linear  in  AN  and  can  be  solved  provided 
0p  is  given.  The  system N=0  Is  totally  nonlinear  in  both  variables;  however,  it 
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can  be  used  as  a  system  of  equations  for  0^  provided  the  AN  are  assumed. 

It  is  not  practical  to  compute  the  best  N-term  fit  directly,  for  this  app¬ 
roach  allows  too  much  freedom  in  the  AN*s  and  results  in  a  relatively  bad  fit. 
Instead,  the  best  4-term,  5-term,  N-tenn  fit  is  determined  successively 

starting  with  the  3-term  Lewis  form.  Moreover,  the  values  of  AN  (1,1)  and  AN 
(1,2)  are  further  restricted  to  conform  more  closely  with  the  Lewis  forms.  The 
best  (J-1)  term  map  serves  as  the  initial  guess  to  the  j-th  term  map,  which  is 
solved  iteratively.  The  first  step  of  this  iteration  is  to  substitute  the  present 

values  of  the  6  together  with  AN(I,1)  and  AN(I,2)  into  the  system  L  =0.  This 
P 

system  is  solved  by  linear  methods  for  the  j-2  terms  AN(I,3),  ...,  AN(I,j).  Next 
the  program  computes  AN(l,l)  and  AN(I,2)  using  the  equations 

j  T 

A(I,1)  =  1/2  {  B(I)  +  H(I)  -  1  [  l-(-l)‘^  ]  AN  (I,J)} 

J=3 


J  T 

A(I,2)  =  1/2  {  B(I)  -  H(I)  -  I  [  1  +  (-1)'^]AN  (I,J)} 

J=3 

where  B(I)  is  the  beam  at  station  I  and  H(l)  is  the  draft.  System  N=0  is  then 
solved  iteratively  for  the  0  .  If  the  resultant  value  for  E  has  not  changed  from 
the  previous  value  by  more  than  a  given  tolerance  TOL,  the  resulting  AN's  and  0^ 
are  taken  as  the  value  for  the  best  j-term  fit;  otherwise  ,  the  first  step  of  the 
iteration  is  entered  again. 

MAP22  uses  a  least  squares  method  to  solve  Equation  (3)  for  the  KPK  coeffi¬ 
cients  BN(L,J),  ...,  BN(KPK,J).  It  has  the  facility  to  constrain  the  polynomial 
at  any  of  the  K  stations  at  which  the  offsets  are  specified.  The  BN  can  be  deter¬ 
mined  such  that  at  station  I  the  approximating  polynomial  has  the  same  value  as 
AN(I,J),  zero  slope,  both  zero  slope  aqd  curvature,  or  a  combination.  An  additional 
feature  of  the  program  is  the  provision  made  to  partition  the  hull  surface  into 
a  forebody,  a  parallel  middlebody,  and  an  afterbody.  The  forebody  and  afterbod> 
are  each  constrained  at  their  junction  with  the  middlebody  to  have  zero  slope  and 
curvature  in  the  longitudinal  direction  and  to  have  the  same  shape  as  the  middle- 
body  cross  section. 
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2.2  TBL18 

2 

This  program  Is  based  on  the  method  of  von  Kerczek  for  computing  a  first- 

order  approximation  to  the  three-dimensional  boundary  layer  on  a  fairly  fine  ship 

hull.  The  program  uses  the  analytic  surface  representation.  Equation  (4),  for  the 

hull  geometry  and  applies  the  slender-body  potential  derived  by  Tuck  and  von  Kerczek 

7  8 

to  calculate  the  inviscid  flow.  It  applies  the  Cumpsty-Head-Smith  *  three-dimen¬ 
sional  turbulent  boundary-layer  calculation  method  to  compute  the  entrainment, 
streamwise  momentum,  and  skin  friction  along  given  streamlines.  It  is  assumed  that 
the  crossflow  is  small  in  these  calculations. 

The  Tuck  and  von  Kerczek  formula  for  the  complex  potential  f(s,c)  is  given  by 

N-1 

f(s,0  =  CN(1)  log  AN(1)  C  +  BO  -  Z  (8) 

1=1 


This  is  the  potential  for  the  inviscid  flow  around  the  analytic  surface 


T-1 

AN(J)  =  E  BN(L,J)  S  (9) 

L=1 

which  agrees  with  (4)  for  S  =  S(I).  The  functions  CN  are  given  by 
N 

CN(1)  =  E  (3-2J)  AN(J)  *  ANP(J)  (10) 

J=1 


and 


N 

CN(J)  =  r  (3-2L)  AN(L)  [ANP(L+J)  +  ANP(L-J)  ] 
L=1 


(11) 


where  ANP  is  the  derivative  of  AN  with  respect  to  S  (ANP(J)  =  0  for  J  <  1  or 
J  >  N) .  Finally  the  function  BO  of  S  is  given  as 


2 

BO  =  -k  CNd)  *  LOG  I  4(1-S  )  ]  +  h  f 

-1 


C^(s)  -  C  (O 
o _ o 

|s  -  cl 


(12'» 


where  C  (S)  =  CN(1)  evaluated  at  S.  The  integral  is  evaluated  as  a  sum  of  terms 
o 

containing  the  Integrals 
1 

/ 

-1  |S  -  C 


dC 


^  1  1 

2  (  Z  i  >  SJ  - 

k=l 


j 

Z 

k=l 


1  +  (-1) 
k 


(13) 


;  ■ 


foir  *J  ™  Ij  •  •  •  y  N« 

The  Integration  of  the  boundary-layer  equations  begin  at  station  S(l),  where 
empirical  boundary- layer  data  are  given  as  initial  data  for  the  differential  equat¬ 
ions.  These  boundary  layer  equations  are 


*^^11  +  +  H)  i 

da  U 

s 


dU 
_ s 

da 


®11  >^1 


d9,,  ,  ,,, 

- -  +  2»n  %  ^  -  *^1)  Sni'jd  +  H)  -  c 

da  s  da  2 


(14) 


d(ej^j^G)  +  (i  ‘^^s  -  K^)  =  F(G) 

s  da 


where  G  is  given  in  terms  of  the  boundary-layer  shape  parameter  H  by 

-2  71  S 

G  =  1.535  (H  -  0.7)  +  3.3 

and 

F(G)  =  0.0306  (G-3.0)'°^^^^ 


(15) 


(16) 


da  is  the  differential  element  of  arc  along  a  streamline;  and  are  geodesic 
curvatures;  and  is  the  inviscid  fluid  velocity  at  the  wall. 


6 


11 


0 


21 


•  6  uv 

o  U  2 
o 


dX 


dX 


(17) 

(18) 


where  u  is  the  streamwise  velocity  in  the  boundary  layer,  and  v  is  the  cross-flow 

velocity.  The  friction  coefficients  C,  and  C  are  in  the  streamwise  and  cross- 

*1  ^2 

flow  directions  respectively. 

An  equal  step  size  Euler  method  is  used  in  the  numerical  solution  of  Equation 

(14). 
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2.3  TBUD 

This  program  is  a  modification  of  the  potential  portion  of  TBL18  and  Is  based 
on  the  same  hull  representation.  Equation  ^4).  Its  primary  purpose  Is  the  com¬ 
putation  of  the  surface  coordinates,  distance  metrics,  and  geodesic  curvatures  ust-d 
in  the  three-dimensional  momentum  Integral  equations. 

The  Intended  application  of  BLC  calls  for  the  use  of  the  Invlscld  velocities 
obtained  from  using  a  doublet  distribution  over  the  hull.  Additionally,  BLC  has 
been  provided  with  a  quick  way  to  estimate  the  soultlon  to  the  three-dimensional 
momentum  Integral  equation.  This  solution  uses  the  Tuck  and  von  Kerezek  slender 
body  potential  to  compute  the  Invlscld  velocities  at  the  grid  points.  The  potential 

portion  of  these  computations  is  carried  out  In  TBL3D. 

If  r  (S,e)  Is  the  vector  from  the  origin  of  the  (X,Y,S)  coordinate  system. 

Figure  (2)  jr  (S,  0)  -  X(S,eU  +  Y(S,0)J^  +  S  k 

(  _1,  J_,  _k)  are  the  unit  tangent  vectors  to  the  (X,  Y,  S)  coordinate  systems  respec¬ 
tively.  The  surface  coordinate  lines  6  “  constant,  run  along  the  length  of  the  hull 
surface;  the  orthogonal  trajectories  to  these  coordinate  lines  form  the  coordinate 
lines  Ip  *=  constant.  These  latter  coordinate  lines  are  nearly  parallel  to  the  hull 
cross-sections.  The  arc  length  increments  along  the  p  and  6  coordinates  are  given 
by  von  Kerezek  and  Langan^  as 

JftX  _  /J—  ^  _  ii/o  o\  J \ 


dip  =  (dr  .  dr) 


H(S,e)  dS 


6  =  constant 


de.9  =  (dr  .  dr)^  =  G(S,e)d0 

4  =  constant 


respectively,  where 
H(S.6)  .[(-If 


HC.e,  .[(-If)^  *  (||-)^  . 

<=«■«> -[<4F  *  ^ 


/  3X 

3X 

+ 

3Y 

3Y  ] 

\  30 

3S 

39 

3S  / 

(  - 

3X  ,2 
39  ^ 

+  ( 

(24) 
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The  program  uses  the  unit  orthogonal  vectors  e^  ,  e^  ,  e^  ,  to  simplify 
Che  computation  of  the  geodesic  curvatures  and  Kg.  Since  the  (fi-coordlnates  are 
generated  by  holding  0  constant  In  Equation  19  for  r,  the  unit  vector  In  the  in¬ 
direction  Is  given  by 


(EPl,  EP2,  EP3)  -  H"^  (  ‘  -5I—  *  1) 


(25) 


The  unit  vector  normal  to  the  surface  Is  determined  from  the  cross  product  x 


which  is  normal  to  the  surface  of  the  hull;  hence. 


96  9S 


e 

— n 


(ENl,  EN2,  EN3) 

D  (  -  p  ,  — 


9X 

90 


9X 

96 


9Y 

9S 


9X 

9S 


9Y 

96 


(26) 


where 


96  '  ^ 


96  ^  ' 


9X 

96 


9Y 

9S 


9X  9Y  ^2 


9S 


96 


] 


(27) 


From  the  definition  of  orthonormal 


that  Is 


— n  — <n 


-  1 


e  ^  -  (ETl,  ET2,  ET3) 

-  (EN2  *  EP3  -  EN3  *  EP2,  EN3  *  EPl 
-  ENl  X  EP3,  ENl  *  EP2  -  EN2  *  EPl) 


The  geodesic  curvatures  are  calculated  using 


K 


J- 

\\ 


and 


K 


6 


^  6 


de 

•  -it 

diin 


(28) 


(2t») 


(30) 
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2.4  CBL 


The  program  CBL  lays  out  the  panels  for  the  doublet  distribution  on  the  ana¬ 
lytic  hull.  It  merely  repeatedly  applies  Equation  (9)  to  obtain  the  coordinates 
for  the  panel  corners  and  formats  this  data  for  the  potential  flow  program  DOUBLD. 

If  one  Is  simply  computing  the  potential  flow  around  a  double  hull  model,  one 
needs  only  to  use  MAP22,  CBL,  and  DOUBLD. 

2 . 5  DOUBDD 

The  program  DOUBDD  computes  the  potential  and  velocities  for  Invlscld  flow 

4 

around  a  double  hull  model.  Plen  and  Chang  developed  the  original  form  of  this 
program;  with  their  permission  we  have  documented  their  program  here  to  publicize 
It  and  to  have  a  complete  discussion  of  the  program  system  BLC.  The  program  solves 
the  Neumann  problem  for  flow  around  a  body  by  distributing  a  layer  of  doublets  on 
the  surface  of  the  body,  in  our  case  the  double  hull,  and  solving  numerically  the 
resulting  Integral  equation  by  a  panel  method.  The  magnitude  of  the  doublet  dis¬ 
tribution  on  the  panels,  SIG(I),  is  obtained  directly  as  the  soultion  of  the  linear 
system 

NP  _ 

r  VPP(I,J)  *  SIG(J)  "T  -4n  S  (I)  (31) 

>1 

for  1=1,  ...,  NP,  which  approximates  the  integral  equation 


4n  S(P)  =  ff  a(Q)  G(P,Q)  ds^ 

Double 

Hull 


SIG(J)  is  the  strength  of  the  doublets  distributed  on  the  J-th  panel,  VPP(I,J)  is 
the  influence  of  this  doublet  distribution  on  the  I-th  panel,  and  S(I)  Is  an  aver¬ 
age  station  location  for  the  I-th  panel.  In  the  integral  equation  G(P,Q)  is  the 
three-dimensional  distribution  1/r,  where  r  is  the  distance  between  the  points  P 
and  Q  on  the  hull  surface,  and  ds^  is  the  increment  of  surface  area  used  in  the 
integrat Ion . 

The  doublet  distribution  is  the  perturbation  potential  due  to  the  invlscld 
flow  around  the  double  hull. 

In  the  actual  mechanics  of  the  solution  DOUBDD  replaces  the  curva-llnear  panels, 
that  are  constructed  In  CBL,  by  plane  panels.  These  planes  are  chosen  to  minimize 
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the  distance  between  the  corners  of  the  plane  panels  and  those  of  the  curvilinear 
ones.  If  the  longitudinal  length  of  a  plane  panel  exceeds  its  traverse  width  by 
a  multiple  of  two  or  more  the  panel  length  is  divided  into  subpanels  which  satisfy 
the  criterion  that  their  length  is  less  than  twice  their  width. 

The  off-diagonal  elements  of  the  Influence  matrix  VPP  are  computed  in  a 
straight  forward  manner.  This  matrix  can  be  ill  conditioned,  and  a  straight  forward 
computation  of  the  diagonal  elements  V(I,  1)  can  lead  to  seriout  error.  A  different 
approach  is  taken  in  the  computation  of  the  diagonal  elements  to  avoid  the  problem. 
Since  the  equation 


NP 

z  vpp(i,j)  =  -  4n 

J=1 


(32) 


corresponds  to  Greens  identity 


SS 


3 

3n 


G(P,0)  dS^  =  -  4n 


one  can  use 


NP 

VPP(I,I)  =  -  411  -  Z  VPP(1,J) 
J=1 
Jl^I 


(33) 


to  compute  the  diagonal  elements.  This  calculation  method  does  not  produce  the 
errors  in  the  solution  that  results  from  computing  the  diagonal  elements  in  a 
straight  forward  manner.  It  is  therefore  used  in  DOUBDD. 


2.6  TBLIPC 

This  program  organizes  the  geometric  and  Inviscld  flow  data  for  use  in  the 
turbulent  boundary-layer  calculations.  These  calculations  are  made  on  a  surface 
grid  (t^,  0j)  given  by 


^i  °  ‘^'  i-1 


+  (1  -  1)A 

(j  -  1)  A  e 


1=2,  ....  NS 
j  =  1,  ...,  NTH 


The  initial  value  i}>j^  is  the  value  of  (fi  at  the  station  at  which  the  boundary-layer 
calculations  are  Initiated.  Empirical  values  of  the  momentum  integral  the 

crossflow  angle  6,  and  of  the  shape  parameter  H  are  given  at  (fi  =  41^  as  initial  con¬ 
ditions;  the  calculations  proceed  station  by  station  downstream  from  4'. .  The  bound- 
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ary-layer  equations  are  first  solved  for  t  =  tan  B  and  H  at  ((>  =  <>2;  these  cal¬ 
culations  are  then  repeated  at  ({1  =  <t>3.  ...  >  Because  the  total  amount  of 

geometric  and  inviscid  flow  data  is  prohibitively  large  for  storage  in  main  memory 
and  since  it  is  only  used  station  by  station,  TP,L1PC  organizes  it  as  a  function  of 
0  for  each  value  and  stores  it  on  disk  for  i  =  1,  NS. 

Typically,  DOUBDD  computes  the  Inviscid  flow  potential  at  250  to  500  points 
approximately  evenly  distributed  over  the  portion  of  the  hull  having  0^0  : 

the  boundary  layer  calculations  require  the  inviscid  velocities  and  their  deriva¬ 
tives  at  1500  or  more  points  on  the  grid  (<}i^,0.).  TBLIPC  uses  spline  on  spline 
interpolation  to  determine  the  potential  at  the  grid  points.  It  uses  the  derivat¬ 
ives  of  these  spline  functions  to  compute  the  inviscid  velocity  tangent  to  the  sur¬ 
face  in  the  <)) -direct ion,  u^,  and  the  corresponding  velocity  in  the  0-dlrection,  Ug. 


2.7  TBLSOL 

von  Kerczek  and  I^ngan^  expressed  the  momentum  integral  equations  and  the 
entrainment  equation  in  the  form 


A  (W  0))  11  +  B(W(4.,0))  |y  =  C(W) 

(f)  0 

where 


The  program  TBLSOL  uses  an  Implicit  marching  method  to  solve  this  system  of  nonlinear 
equations.  In  marching  from  station  41^  to  • .~»  it  uses  the  value  of  W  at 

^'^I’^i^  to  compute  the  coefficients  A,  B,  and  C  at  program  uses 

Gaussian  reduction  to  solve  the  resulting  system  of  linear  equations. 

The  coefficient  matrices  are  described  in  von  Kerczek  and  Langan^  together 
with  the  theoretical  details  of  the  solution  method. 


3.  OPERATING  INSTRUCTIONS  WITH  AN  EXAMPLE 
The  suite  of  programs  BLC  has  been  Installed  on  the  Burroughs  7700  at  DTNSRDC 
as  an  interactive  software  system.  Each  individual  program  was  initially  designed 
for  batch  operation  on  the  CDC  6700  computer  system.  A  version  of  DCUBDD  is  pre- 
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sently  available  on  the  Naval  Research  Laboratory  Advanced  Scientific  Computer;  it 
uses  the  large  array  storage  and  pipeline  capabilities  of  that  machine.  The  indi¬ 
vidual  programs  required  minimum  modification  when  moved  from  one  machine  to  the 
other;  they  are  written  in  a  fairly  basic  FORTRAN.  The  operating  instructions  and 
program  listings  presented  in  this  report  apply  to  the  interactive  software  system 
as  installed  on  the  Burroughs  7700. 

The  Swedish  Model  SSPA  720  is  used  in  the  sample  calculations.  The  offsets 
used  for  this  ship  are  given  as  input  to  MAP22.  The  input  to  each  program  is  given 
in  detail,  unless  it  is  generated  as  output  from  one  of  the  programs  in  the  system. 
Since  the  output  from  the  programs  would  require  too  much  space  and  can  be  easily 
generated  if  needed,  only  partial  listings  of  the  output  will  be  given. 

3.1  MAP22 

This  is  the  first  program  of  the  system.  Its  primary  output  is  the  hull  geo¬ 
metry  representation  matrix  BN.  This  matrix  forms  the  basis  of  all  further  calcul¬ 
ations  in  the  system.  The  input  data  is  stored  in  file  PFN  before  running  the  pro¬ 
gram.  The  input  data  file  PFN  for  the  SSPA  Model  720  is  shown  in  Table  1.  It  is 
read  by  MAP22  with  the  following  read  statements. 

READ(5,24)  (TITLE(J) , J*1 ,12) 

READ<5,3)  IST1,IST2,KP1,KP2 
REAC<5,1)  K,N,rOL,BL 
READ(5,3)  (IFS<I),I=1,K) 

READ(5.3)  (JFS(1),1=1,K) 

REA1)(S,25)(KT<I),I  =  1,K) 

READ«5,4)  aX(J),IY(J),J*l,M) 

READ(5,2)  (S(I),I=1,K) 

32  REAIi(5,2)  (AN(I,J).J=1  ,N> 


The  formats  are 


1  FORMAr(2I10,2F10.5> 
4  F0Rf1AT<6<1X,2I6)) 

2  FORMAT  17F10.5) 

3  F0RMAT(14I5) 

25  F0RMAT<7I10) 

24  F0RrtAT<12A4) 
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TABLE  1  -  INPUT  TO  MAP 2 2 


#FILE  (CHXL;PFN  on  DTNSRDC 


100 

SSPA 

MODEL  720 

200 

25 

0 

It 

0 

300 

25 

7  0 

.0001 

1.0 

400 

1 

1 

1 

1 

1  1 

1 

1 

1  1  1 

1 

1 

1 

1 

500 

1 

1 

1 

1 

1  1 

1 

1 

1  1  1 

1 

1 

1 

1 

600 

1 

700 

300 

4 

15 

17 

19 

20 

23 

26 

900 

29 

33 

20 

21 

21 

21 

21 

1000 

22 

21 

19 

18 

17 

16 

18 

1100 

20 

21 

23 

9 

1200 

* 

* 

- 

500* 

- 

1000* 

-  1636 

1  300  +li00439-00005  +  S00407-00272*3i00381-00511*S00349-0076.4*«00331 -01 002  *500309-01  248 
1400  +500287-01 5C3t 500264-01 753*500242-01 992*50021 7-02236*5001  83-02494:»500t 42-02743 
1500  *500097-02981 +500064-03088*-00001 -03091 

1 600  •*500859-00002*500823-00271*500791-00512*500760-00767*500736-01007*500706-01250 
1700  *500686-0 1508*500659-0 1750*500628-01 993*500585-02235 *500531 -02496-+500475-02735 
1800  *500405-02984*500320-03229*500223-03476*5001 19-0371 3*-00008-03718 
1900  *501333-00003*501297-00272*501263-00514*501226-00769*501191-01009*501 168-01253 
■000  *5011 32-01506*501094-01754*501051-01996*501000-02241*500932-02493*500850-02736 
2100  *500747-02987*500635-03237*500501-03478*500348-03718*500252-03853*500137-03984 
2200  *-00007-03985 

2300  *501 837-00004*501 803-00274*501 773-00513*501 732-00771*501 699-01 005*501 660 -01 253 
2400  *501616-01508*501565-01756*501506-01996*501 441 -02238*501358-02497*501 270-02735 
2500  *501140-02988*500990-03233*500806-03480*500583-03720*500427-03873*500311-03972 
2600  *5001 88-04077t-0000 1-04095 

2700  *502850-00007*502820-00277*502788-00513*502754-00774*502724-01007*502686-01257 
2800  *502643-01520*502593-01757*502539-02000*502468-02233*502370-02504*502250-02740 
2900  *502083-02995*501 872-03231*501 719-03374*S01581-03478*5014t8-0356’8*501 242-03693 
3000  *500983-03322*S00733-03924*500506-04006*500252-04089*-00004-04090 
3100  *503738-00003*503715-00276*503688-00515*503663-00783*503647-0 , ^08*503622-01257 
3700  *503595-01514*503556-01760*503508-02001*503433-02240*503335-02504*503201-02741 
3300  *503023-03002*S02793-03244*S02638-03370*S02463-03487*502219-03616-*S01 967-03729 
MOO  **01718-03825*501478-03897*501243-03952*500988-04012*500741-04049*500502-04080 
3500  *500251 -04091 *-00004-04089 

3600  *504407-00002*504400-00281 *504391 -00529*504383-00785*504374-01 01 5*504365-01 265 
3700  *504350-0 1525*504335-01 770*504302-02002*504243-02249*504162 -02505*504043-027 49 
3800  *503886-03005*503699-03218*503459-03421*503200-03581*502955-03693*502717-03784 
3900  *502463-03863*502221  -03928*501 961 -03976*501 718-0401 5*501 480-04046* SOI 243-04072 
4000  *500987-04091*500739-04097*500503-04095*500251-04096*500001-04093 
4100  *504300-00000*504797-00282*504798-00521*504794-00777*504798-01009*504802-01260 
4200  1 504, '03-01522*504793-0 1769*504776-02001 *504744-02248*504690-02506*5046 13-02751 
4300  *504495-03006*504337-03247*504201 -03393*50 4034-03490*503946 -03598*503695-03723 
4400  1503460-03821*503199-03886*502953-03943*502651-03932*502455-04010*502215-04052 
4500  *50 1963-04051 *501 71 9-04066*501  475-04082*501 244-04093*500983 -04093*500745-04095 
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TABLE  1  -  (continued) 


4600  •‘XOOSO  I  -04093», '400257-04096^^-00007-04098 

4?00  ♦.s04954-00006+S04955-00285+X04959-00?77*X04?53-01267*S04940-01768tS04927-0224? 
4800  i‘!t04867-0275 1  **04757-031  39*S04578-03462*a04310-03705-)‘a03944-03888aO’3568-0:39G6 
4900  **03204-04031 ♦402714-04067**0221 9-04085**0171 5-04092**01 239-04090**00741 -04092 
5000  *400253-04094*-00008-04089 

5100  **04954-00004**04956-00286*404956-00781  ••l••S04959-01264+*04956-01770•■f&04?59-02249 
S200  **04954-02752*S04902-03250*S04683-03665*X04434-03872**04193-03993**03939-04062 
5300  *403460-04072*402954-04078**02461 -04083**01 964-04090+401 479-04037*400990-04089 
5400  *400499-04090*S00250-04093*-00008-04091 

5500  *404957-00004**04953-00286*404961-00776*404956-01258*404962-01768**04957-02249 
5600  *404954-02754*404935-03249**04752-03646*404459-03917*404153-04041**03702-04071 
‘5700  *40320 1-04073**027 1  4-04077**02220-04084**01 714-04090**0 1242-04088*40074 1-04092 
5800  *400503-04092*400250-04095*-00003-04091 

'5900  *404957-00004*404953-00286*404961 -00776*S049‘o6-01258*404962-01 768*404957-02249 
AOOO  **04954-02754*404935-03249*404752-03646*404459-03917*404158-04041*&03702-04071 
6100  *403201-04073*402714-04077*402220-04084*401714-04090*401242-04083*400741-04092 
.•)200  i*00503-040?2**y0250-04095*-00003-04091 

6300  *s04?57-00004*404953-002e6*404961-00776*404956-01258»404962-0r768*&04957-02249 
*4<1.»954-02^54*S04935-03249*404752-03646**0445V-0391 7*4041  58-04041  *403702-04071 
6500  *403201-04073*402714-04077*402220-04084*401714-04090*401242-04088*400741-04092 
6600  *400503-04092*400250-04095*-00003-04091 

o700  *-04962400003*-04961-00245*-04974-00735*-04967-01237*-04963-01719*-04964-02209 
6800  *-04965-0271 7*-04932-C310?*-04820-03440*-04653-03682* '04471 -03849*-04238-03982 
6900  *-03925 -04059*-03526-04064*-03003-04065*-02495-04072*-01 983-04081 *-01 500-04089 
/OOO  *-00976-04085*-00491 -04091 *-00243-04092*-00009-04091 

7100  *-04963-00000*-04964-00240*-04970-00734*-04963-01225*-04960-01720*-04?33-02190 
7200  *-04868-02679*-04777-03074*-04619-03423*-04439-03650*-04205-0331 8**03750-04003 
7300  +-03363-04055*-02996-04070*-02507-04077*-01938-04032*'0149?-04082*-00975-04039 
7400  *-00498-04089*-00249-04087*-00008-04089 

7500  +-04964400001*-04953-00241*-04916-00736*-04874-012;32*-04818-01720*-04731-02215 
7600  *-0  4591  -0271 7*-043?6-03n5*-04152-03445*-03848-03638*-03486-03861 *-02994-03991 
'  ■■fiA  *-0250i-04062*-01993-04079*-01  495-04085* -00977-04034*-00498-04091  *-00241 -04094 
7S00  *-00006-04088 

7900  *-04771-00000*-04744-00243*-04669-00739*-04573-01234*-04470-01654*-04333-020B4 
8000  *-04175-02473*-03974-02843*-03724-03189*-03441-03456*-03065-03700*-0267'3-03867 
8100  *-02267-03984**01 745-04068**01 253-04087*-00743-04093*-00253-04093*-00002-04038 
8200  *-04424-00004*-04345-00250*-04165-00743*-03975-01 241 *-03765-01 72?*-03527-02226 
8300  *-03237-027 17t-03014-03023*-02799-03263*-02503-03526*-021 6 1-03741 *-01 742-039 16 
8400  •*-01348-04020+-00941-04082*-00502-04090*-00209-04091 *-00008-04092 
8500  *-03849-00001 *-03691 -00250*-03479-00595*-0;3260-00939*-03040-01302*-02755-01 764 
8600  *-02518-02162*-02335-02490*-02140-02834*-01945-0317l*-01712-03'303*-01353-03813 
8700  *-00958-03994* -00548-04088*-00254-04093* -00009-04091 

8300  *-0308;’-0000l*-02881  -00212*  -O2640-O0466*-02415-OO679*-O2143-O0995*  -0  lv4'j  -0124  7 
8900  *-01747-01530*-01567-01845*-01402-02214*-01278-02572*-On6B-02973*-01081-03344 
'-uOO  I  -00981  -03594  *-00841  -038M*-00660-03974*-00428-04083* -0021 1-04089*-00003-04092 


TABLE  1  -  (continued) 


V  I  00  t:-0261<S-00001» -0247-1 -001 22t-02324-00255't-021 07-00-438 f-01785-007A2  4 -01 5A0 -00998 
9  200  *-01  31 7-01 306*-01 161  -01 577*-01 039-01 843*-009'i9-02190^i-008B4-02487»-00851 -02741 
9300  *-00819-02988»-00788-03224*-00740-03476*-006?7-03713  t -00;-j5a-OJ949*'00362-04085 
V400  *-00145-040911-00012-04095 

9500  t-02042-00006*-01935-00089*-Or74l-00248*-01497-00447*-Ol26l-0066Bi-01071 -00858 
7600  t-00863-01 130t-00677-01 446*-00591 -01 689*-00539-01952*-0051 1-022371-00496-02490 
9700  *-00494-02737-*-00496-02934*-00496-03233*-00494-03477*-00470-0371 1 1-00401-03923 
9800  *-0025B-04067*-00096-04092*-00007-04090 

9900  *-01 484S0fl002*-0 1356-00083* -01 254-001 67*-01124-00258*-01 001 -00366*-00835-00500 
10000  *-00655-00670*'00529-00816*-00414-01000*-0031 1-01250*-00260-01502*-00230-01753 
10100  *-00214-01991*-00207-02238*-00206-02488*-OOI97-02739*-0019?-029y9*-001 89-03228 
10200  *-00 188-03476*-001 83-037 16*-001 79-03961 *-001 5 1-04092*~00008 -04075 
1  0300  ^-00007^^00000*-00004-0051 1*-00005-01004*-00004-01506*-00006-01989  t  -00006-02491 
10400  *-00005-02977*-0001 1-03480**00010-04095 


10500 

-1.0 

-0.95 

-0.9 

-0.85 

-0,8 

-0.7 

-0.6 

10600 

-0.5 

-0.4 

-0.3 

-0.2 

-0.1 

0.0 

0.1 

1  0700 

0.2 

0.3 

0.4 

0.5 

0.6 

0.7 

0.8 

■10800 

0.85 

0.9 

0.95 

1.0 

1  0900 

0.34641 

-0.27440 

0.00758 

0.00463 

0.00198 

0.0021  1 

0.00032 

11000 

0.44878 

-0.29447 

0.01009 

0.00223 

0.00258 

0.00369 

0.00050 

11100 

0.52025 

-0.27080 

0.01227 

-0.00004 

0.00391 

0.00368 

0.00031 

11200 

0.58204 

-0.22798 

0.01064 

-0.00164 

0.00543 

0.00172 

0.00060 

11300 

0.70588 

-0.12377 

-0.01246 

-0.00275 

0.00537 

0.00137 

0.00117 

11400 

0.82395 

-0.03395 

-0.03654 

-0.00304 

0.00176 

0.00157 

0.00080 

11500 

0.92477 

0.03544 

-0.0640? 

-0.00478 

-0.00266 

0,00103 

-0.00015 

1 1  600 

0.99266 

0.07721 

-0.09170 

-0.00561 

-0.00276 

-0.00075 

-0.00013 

1 1  700 

1  .  03039 

0.09126 

-0.11683 

-0.00364 

-0.00079 

-0,00033 

-0.00007 

M800 

1 .04960 

0.09273 

-0.14022 

-0.00500 

0.00252 

-0.00063 

0.00099 

1  1700 

1  .05300 

0.09338 

-0. 14479 

-0.00569 

0.00431 

-0.00028 

0.00067 

1  2000 

1  .05300 

0.09333 

-0.14479 

-0.00569 

0.00431 

-0.00028 

0.00067 

12100 

1.05300 

0.09338 

-0.14479 

-0.00569 

0.00431 

-0.00023 

0.00067 

1  2200 

1  .04944 

0.09401 

-0.13950 

-0.00439 

0.00276 

-0,00121 

0.00100 

1  2300 

1 .03303 

0.08996 

-0.11985 

-0.00025 

0.00009 

-0.00150 

0.00033 

1  2400 

0.99738 

0.07939 

-0.08535 

0.00724 

0.00040 

0.00129 

0.00069 

1  2500 

0.93959 

0.05219 

-0.04667 

0.01319 

0.00038 

0.00356 

0.00033 

1  2600 

0.85550 

0.00524 

-0.00262 

0.02280 

0.00562 

0.00547 

0.00101 

1  2700 

0.75006 

-0.06606 

0.04397 

0,03767 

0.00606 

0.00397 

O.uu 1 28 

1  2800 

0.63970 

-0.15695 

0.07969 

0.05623 

0.00548 

-0.00072 

-0.00031 

1  2900 

0.53626 

-0.21333 

0.08316 

0.06432 

0.01088 

-0.00076 

-0.00297 

1  3000 

0.53095 

-0.27523 

0.07389 

0.06886 

0.01946 

-0.00054 

-0.00540 

!  1 1 1 1 

0.47331 

-0.33047 

0.06755 

0.05733 

0.02435 

0.00962 

-0,00313 

1  3200 

0.41167 

-0.41260 

0.00234 
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On  Table  1,  line  100  is  simply  an  alpha  numeric  title  to  identify  the  data  in  sub¬ 
sequent  runs;  this  title  is  carried  throughout  the  calculations. 

Line  200:  ISTl  is  the  number  of  stations  at  which  offsets  are  given  on  the 
forebody,  if  the  ship  is  being  cut  into  a  fore  and  afterbody  or  a  parallel  middle 
body  is  being  used.  It  is  the  total  number  of  stations,  if  the  ship  is  being  re¬ 
presented  by  a  single  polynominal.  IST2  is  the  number  of  stations  on  the  afterbody 
it  is  zero  if  there  is  no  separate  afterbody  representation.  KPl  is  the  degree 
minus  one  of  the  polynominal  in  S  for  the  forebody  or  for  the  full  length  of  the 
ship  if  IST2=0.  KP2  is  the  degree  minus  one  of  the  polynomial  for  the  afterbody 
or  zero  if  IST2=0. 

Line  300:  The  first  number  is  K,  the  total  number  of  stations  at  which  offsets 
are  given.  N  is  the  number  of  parameters  in  the  mapping  of  the  unit  circle  onto 
the  cross  section;  it  should  be  chosen  to  be  of  the  order  of  1/2  to  2/3  the  number 
of  offsets  at  each  of  the  stations.  In  the  present  case  N=7  is  between  1/3  to  1/2 
the  number  of  offsets  at  the  different  stations.  TOL  is  the  tolerance  to  which  an 
interaction  is  solved.  BL  is  the  beam-to-length  ratio. 

Lines  400-500:  IFS(I)  determines  the  type  of  constraints  to  be  used  at  station 

I. 

IFS(I)  =1.  No  constraints 

2.  Surface  at  station  I  passes  through  offsets 

3.  Slope  with  respect  to  S  is  zero 

4.  Combination  of  2  and  3 

5.  Slope  and  curvature  with  respect  to  S  is  zero 

6.  Combination  of  2,  3  and  5 

Lines  600-700:  JFS(I)  is  zero  if  AN  is  to  be  read  at  station  I;  it  is  1  if  AN 
is  to  be  computed. 

Lines  900-1100:  KT(I)  is  the  number  of  offsets  at  station  I. 

Lines  1300-10400:  IX(J)  is  the  x-coordinate  of  the  j-th  offset  at  station  I 
in  integer  form,  as  would  be  obtained  from  a  digitizer.  IY(J)  is  the  corresponding 
Y-coordlnate. 

Lines  10500-10800:  S(I)  is  the  value  of  S  at  station  I. 

Lines  10900-13200:  AN(I,J)  is  the  jth  value  of  AN  at  station  I  grouped  by 
stations.  J=1,...,N. 

MAP22  has  three  output  files: 


J 


r 


m 


File  BNS  Table  2  contains  the  hull  geometry  matrix. 

Line  100;  N  KPK  BL 

Lines  200-1500:  BN(I,J)  grouped  by  values  of  J=l,  2,  ....  N. 

1  =  1,  KPK 

File  ANS  Table  3,  contains  starting  values  of  AN  for  additional  calculations. 

Lines  100-2600;  AN(I,J)  1=1,  KPK,  J=l,...  ,  N  grouped  by  values  of  I. 

File  PRINTER  is  shown  as  File  OPT  in  Table  4.  It  contains  the  data  as  follows: 

Line  100:  Ignore  the  1  in  this  line 
Line  200:  Title 

Line  300:  "The  Input  Offsets,",  this  is  a  heading  for  several  pages  of  input 
effects.  In  the  present  example,  the  input  effects  ran  from  lines900  through 
62500;  Table  4  shows  output  for  stations  S(I)  =  -1.00 

S(2)  =  -0.95  and  S(25)  =  1.00.  XMS  is  the  x-coordinate  and  VMS  is  the  y-coordinate. 

Lines  62900-63500:  show  the  progression  of  the  calculation  for  AN(I,J),  which 
is  typical  of  the  iterative  calculations  of  AN. 

Line  63600;  In  this  case,  the  iteration  is  not  convergent  from  fourth  to  fifth 
iteration,  so  the  results  for  the  fourth  iteration  are  used. 

Line  63900;  Is  typical  of  lines  63900  through  70800.  The  AN's  for  stations 

2  through  25  are  given  in  this  example  and  line  63900  gives  the  values  of  AN  at 
station  1=2. 

Line  71100:  KP,  KPK,  and  IT 

Lines  71500-72400;  Gives  intermediate  values  of  a  matrix  BN  used  in  the  compu¬ 
tation. 

Lines  72700-7400;  Gives  the  intermediate  matrix  BS 

Lines  74300-75900:  "The  Polynomial  Coefficients,"  these  are  the  final  values 
of  the  matrix  BN(I,J). 

Lines  76200-85500:  are  typical  of  the  computed  offsets  at  the  different  sta¬ 
tions. 

Lines  201300-203900:  are  a  printed  version  of  the  matrix  A(I,J). 

For  the  entire  ship  starting  with  just  the  offsets  MAP22  requires  about  ten 
minutes  of  CPU  time  on  the  Burroughs  B7700;  however,  the  example  runs  in  less  than 
a  minute.  It  is  imperative  that  the  input  offsets  be  compared  with  the  output  off- 
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TABLE  2  -  HULL  GEOMETRY  MATRIX 


100 

7  11 

1.00000 

200 

1.05407 

0.00946 

-0.06386 

-0.17969 

-2.17726 

1.30080 

1.75289 

300 

-2.35902 

0.99482 

1 .35102 

-1.27218 

400 

0.09199 

-0.01678 

0.12962 

0.23842 

-1.63679 

-0.65025 

1.62619 

500 

1.30540 

-1.17223 

-0.99895 

0.67261 

600 

-0.14817 

-0.01482 

0.27346 

0.19518 

0.85676 

-0.34804 

-2.45327 

700 

0.50034 

2.46250 

-0.32998 

-0.98946 

800 

-0.00560 

-0.00706 

0.00830 

0.22146 

0.35303 

-0.73910 

-1.28967 

900 

1.22848 

1.99487 

-0.70358 

-1.06058 

1000' 

0.00609 

-0.01300 

-0.15698 

0.25859 

1 .06743 

-1.09828 

-2.79267 

1100 

1 .64747 

3.20478 

-0.79404 

-1.32815 

1200 

0.00030 

-0.01009 

-0.05990 

0.14915 

0.62418 

-0.50594 

-1.88688 

1300 

0.62018 

2.24264 

-0.25234 

-0.92001 

1400 

0.00096 

0.00142 

-0.01278 

-0.01756 

0.05647 

0.09382 

-0.03964 

1500 

-0.17823 

-0.08303 

0.10064 

0.07813 

TABLE  3 

-  FILE  ANS 

100 

0.16513 

-0.16512 

-0. 00003 

0.00001 

0.00001 

-0.00001 

0.0000\; 

200 

0.16513 

-0.16512 

'0.00003 

0.00001 

0.00001 

-0.00001 

0.00000 

300 

0.34641 

-0.27440 

0.00758 

0.00463 

0.00198 

0.0021 1 

0.00032 

400 

0.44878 

-0.29447 

0,01009 

0.00223 

0.00253 

0.00369 

0.00050 

500 

0.52025 

-0.27080 

0.01227 

-0.00004 

0.00391 

0 ■ 00363 

0.00081 

600 

0.58204 

-0.22798 

0.01064 

-0,00164 

0.00543 

0.00172 

0.00060 

700 

0.70583 

-0.12377 

-0.01246 

-0.00275 

0.00587 

0.00137 

0.00117 

800 

0.82395 

-0.03395 

-0.03654 

-0.00304 

0.00176 

0.00157 

0.00080 

900 

0.92477 

0.03544 

-0.06407 

-0.00478 

-0.00266 

0.00103 

-0.00015 

1000 

0.99266 

0.07721 

-0.09170 

-0.00561 

-0.00276 

-0.00075 

-0.00013 

1 100 

1  .03039 

0.09126 

-0.11683 

-0.00364 

-0.00079 

-0.00033 

-0.00007 

1200 

1 .04960 

0.09273 

-0.14022 

-0.00500 

0.00252 

-0.00063 

0.00099 

1300 

1.05300 

0.09338 

-0.14479 

-0.00569 

0.00431 

-0.00028 

0.00067 

1400 

1  .05300 

0.09338 

-0.14479 

-0.00569 

0.00431 

-0.00028 

0.00067 

1500 

1.05300 

0.09338 

-0.14479 

-0.00569 

0.00431 

-0.00028 

0.00067 

1600 

1  .04944 

0.09401 

-0.13950 

-0.00489 

0.00276 

-0.00121 

0.00100 

1700 

1  .03303 

0.08996 

-0.11985 

-0.00025 

0.00009 

-0.00150 

0.00033 

1800 

0.99788 

0.07989 

-0.08535 

0.00724 

0.00040 

0.00129 

0,00069 

1900 

0.93959 

0.05219 

-0.04667 

0.01319 

0.00083 

0.00356 

0.00033 

2000 

0.85550 

0.00524 

-0.00262 

0.02280 

0.00562 

0.00547 

0.00101 

2100 

0.75006 

-0.06606 

0.04397 

0.03767 

0.00606 

0.00397 

0.00128 

2200 

0.63970 

-0.15695 

0.07969 

0.05623 

0.00548 

-0.00072 

-0.00031 

2300 

0.58626 

-0.21333 

0.08316 

0.06432 

0.01088 

-0.00076 

-0.00297 

2400 

0.53095 

-0.27523 

0.07389 

0.06836 

0.01946 

-0.00034 

-0.00540 

2500 

0.47381 

-0.33047 

0.06755 

0.05733 

0.02485 

0.00962 

-0.00313 

2600 

0.41167 

-0.41260 

0.00234 

0.00000 

0.00000 

0.00000 

0.00000 
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TABLE  A  -  PRINTER  FILE 


100  1 
200 

SSPA  MODEL 

720 

300 

THE  INPUT  OFFSETS 

400 

500 

600 

700 

800 

900 

XHS 

1000 

1100 

1200 

0.00000 

1300 

0.00000 

1400 

0.00000 

1500 

0.00000 

1600 

1700 

1800 

XHS 

1900 

2000 

2100 

0.08862 

2200 

0.08216 

2300 

0.07691 

2400 

0.07045 

2500 

0.06681 

2600 

0.06237 

2700 

0.05793 

2800 

0.05329 

2900 

0.04885 

3000 

0.04380 

3100 

0.03694 

3200 

0.02866 

3300 

0.01958 

3400 

0.01292 

3500 

-0.00020 

FOR  MAP22 


YhS 


0.00000 

0.10093 

0.2018A 

0.33024 


Y«S 


0.00101 

0.05491 

0.10315 

0.15462 

0.20226 

0.25192 

0.30339 

0.35386 

0.40210 

0.45135 

0.50343 

0.55369 

0.60174 

•0.62333 

•0.62394 


23 


TABLE  4  —  (continued) 
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'ABLE  4  -  (continued) 


76000 

76100 

76200 

X 

Y 

76300 

76600 

-0.00200 

0.00000 

76500 

-0.00197 

-0.01188 

76600 

-0.00187 

-0.02373 

76700 

-0.00171 

-0.03552 

76800 

-O.OOISO 

-0.04721 

76900 

-0.00126 

-0.05879 

77000 

-0.00101 

-0.07024 

77100 

-0.00076 

-0.08153 

77200 

-0.00054 

-0.09267 

77300 

-0.00035 

-0.10365 

77400 

-0.00021 

-0.11446 

77500 

-0.00013 

-0.12512 

77600 

-0.00011 

-0.13563 

77700 

-0.00014 

-0.14598 

77800 

-0.00022 

-0.15620 

77900 

-0.00033 

-0.16627 

78000 

-0.00046 

-0.17620 

78100 

-0.00059 

-0.18597 

78200 

-0.00069 

-0.19556 

78300 

-0.00076 

-0.20497 

78400 

-0.00077 

-0.21415 

78500 

-0.00072 

-0.22310 

78600 

-0.00061 

-0.23176 

78700 

-0.00043 

-0.24011 

78300 

-0.00020 

-0.24813 

78900 

0.00006 

-0.25579 

79000 

0.00034 

-0.26307 

79100 

0.00062 

-0.26995 

79200 

0.00087 

-0.27644 

79300 

0.00108 

-0.28253 

79400 

0.00122 

-0.28824 

79500 

0.00130 

-0.29356 

79600 

0.00130 

-0.29853 

79700 

0.00122 

-0.30315 

79800 

0.00109 

-0.30744 

79900 

0.00091 

-0.31141 

80000 

0.00070 

-0.31506 

80100 

0.00048 

-0.31839 

80200 

0.00028 

-0.32140 

80300 

0.00010 

-0.32406 

80400 

-0.00003 

-0.32637 

80500 

-0.00011 

-0.32829 

80600 

-0.00013 

-0.32982 

80700 

-0.00012 

-0.33092 

80800 

-0.00007 

-0.33159 

80900 

0.00000 

-0.33181 

(  1 
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TABLE  4  -  (continued) 


81100 

81200 

X 

Y 

8ri00 

81400 

0.09246 

0.00000 

81500 

0.09204 

-0.01806 

81600 

0.09081 

-0.03628 

81700 

0.08885 

-0.05481 

81800 

0.08627 

-0.07376 

81900 

0.08J22 

-0.09321 

82000 

0.07989 

-0.11319 

82100 

0.07644 

-0.13368 

82200 

0.07304 

-0.15461 

82300 

0.06983 

-0.17537 

82400 

0.06693 

-0.19732 

82500 

0.06441 

-0.21880 

82600 

0.06229 

-0.24013 

32700 

0.06055 

-0.26115 

82800 

0.05914 

-0.28172 

82900 

0.05797 

-0.30170 

83000 

0.05692 

-0.32102 

83100 

0.05589 

-0.33965 

33200 

0 .05477 

-0.35756 

83300 

0.05346 

-0.37480 

83400 

0.05189 

-0.39141 

83500 

0.05003 

-0.40747 

83600 

0.04737 

-0.42305 

83700 

0.04544 

-0.43823 

83300 

0.04280 

-0.45306 

85900 

0.04003 

-0.46758 

84000 

0.03721 

-0.48180 

84100 

0.03444 

-0.49568 

84200 

0.03182 

-0.50918 

84300 

0.02940 

-0.52222 

34400 

0.02723 

-0.53470 

34500 

0.02534 

-0.54653 

84600 

0.02372 

-0.55759 

84700 

0.02232 

-0.56780 

84800 

0.02109 

-0.57707 

84900 

0.01996 

-0.58535 

85000 

0.01883 

-0.59261 

85100 

0.01761 

-0.59886 

85700 

0.01624 

-0.60412 

35300 

0.01464 

-0.60845 

85400 

0.01279 

-0.61 192 

85500 

0.01065 

-0.61461 
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TABLE  4  -  (continued) 


201300  AN(I.J) 

20M00 


201500 

0.16591 

-0.16644 

-0.00036 

0.00016 

'0.00022 

-0.00062 

201600 

0.34432 

-0.27111 

0.00894 

0.00412 

0.00232 

0.00372 

201700 

0.44933 

-0.29486 

0.01181 

0.00264 

0.00296 

0.0033B 

201800 

0.S21S8 

-0.27320 

0.01079 

0.00015 

0.00375 

0.00229 

201900 

0.58279 

-0.22889 

0.00689 

-0  00171 

0.00479 

0.00177 

202000 

0.70380 

-0.12268 

-0.00905 

-0.00303 

0.00550 

0.00217 

202100 

0.82412 

-0.03057 

-0.03465 

-0.00336 

0.00265 

0.00206 

202200 

0.92493 

0.03424 

-0.06531 

-0.00413 

-0.00167 

0.00056 

202300 

0.99372 

0.07303 

-0.09475 

-0.00493 

-0.00377 

-0.00094 

202400 

1.03136 

0.09142 

-0.11833 

-0.00513 

-0.00198 

-0.00117 

202500 

1 .04730 

0.09630 

-0.13450 

-0.00492 

0.00221 

-0.00023 

1.05244 

0.09457 

-0.14406 

-0.00499 

0.00563 

0,00063 

202700 

1.05407 

0.09199 

-0.14817 

-0.00560 

0.0060? 

0.00030 

202800 

1.05399 

0.09168 

-0.14664 

-0.00597 

0.00358 

-0.00110 

202900 

1  .04899 

0.09302 

-0.13752 

-0.00464 

0.00049 

-0.00219 

203000 

1.03268 

0.09160 

-0.11817 

-0.00049 

-0.00046 

-0.00137 

203100 

0.99791 

0.08055 

-0.08729 

0.00629 

0.00142 

0.00162 

203200 

0.93919 

0.05292 

-0.04656 

0.01442 

0.00397 

0.00485 

203300 

0.85530 

0.00412 

-0.00089 

0.02349 

0.00419 

0.00534 

203400 

0.75152 

-0.06681 

0.04288 

0.03612 

0.00279 

0.00207 

203500 

0.63963 

-0.15837 

0.07622 

0.05573 

0.00687 

-0.00034 

203600 

0.58464 

-0.21171 

0.08440 

0.06598 

0.01310 

0.00008 

203700 

0.53079 

-0.27067 

0.08160 

0.06994 

0.02025 

0.00239 

203800 

0.47541 

-0.33642 

0.05972 

0.05556 

0.02147 

0.00543 

203900 

0.41105 

-0.41076 

0.00449 

0.00054 

0.00126 

0.00128 

o.oooo; 
0.00016 
0.00049 
0.00030 
0.00097 
0.00039 
0  00053 
0.00017 
0.00001 
0.0000? 
0.00036 
0.00071 
0.00096 
0.00096 
0.00070 
0.00037 
0.00029 
0.00067 
0.0012B 
0.00113 
-0.001CO 
-0.00276 
-0.00427 
-0.00414 
0.00025 


I 

i 

sets  and  different  values  of  KPK  are  tried  In  order  to  get  the  smoothest  represent¬ 
ation  In  the  lengthwise  direction.  Three  or  four  runs  should  be  sufficient  to 
develop  a  good  choice  of  KPK, 

3.2  TBL18 

The  primary  output  from  this  program  is  the  boundary-layer  parameters  obtained 
using  the  small  cross-flow  assumption.  Input  data  is  entered  either  through  the 
keyboard  In  answer  to  prompting  from  the  computer,  or  It  is  read  from  one  of  two 

stored  flies:  File  8  TITLE  =  "BNSAL"  Is  the  BNS  file  created  by  MAI>22;  FILE  10 

TITLE  =  "TBLINP"  is  a  file  created  by  the  present  program  during  a  previous  run. 

The  example  form  of  TBLINP  is  shown  in  Table  5. 

Line  100:  40  is  the  free  stream  velocity  U 

Line  200:  is  the  beam-to-length  ratio  BL 

Line  300:  NSTAT  the  number  of  stations  at  which  the  boundary  layer  is 
calculated , 

Line  400:  SI,  S2  the  first  and  last  stations  in  the  calculations. 

Line  500:  NTH,  the  number  of  streamlines  being  used. 

Lines  600-2100:  THATA  values  of  the  streamlines  at  station  Si. 

Lines  2200-3700:  initial  values  of  H,  tan  B  for  each  value  of  THATA. 

Line  3800:  Reynolds  number  RE 

File  BNS  is  read  first  and  is  printed  at  the  terminal,  so  a  quick  glance  can 
determine  if  the  correct  file  was  loaded.  Table  6  shows  the  terminal  displa\  .is 
it  should  appear  after  going  through  all  the  computer  prompts.  The  computer  i  irst 
prompts  you  fcr  a  choice  of  input  method:  Enter  1  if  the  input  data  is  on  lards, 

2  if  it  is  to  come  from  the  terminal,  and  3  if  it  is  to  be  read  from  TBIINT.  If 
you  choose  1  or  3,  you  merely  wait  for  the  program  to  finish;  if  von  (boose  ?,  the 
computer  will  prompt  you  to  enter  UO.  It  prompts  you  by  displaying  the  desired 
variable  with  an  equal  sign,  some  space,  and  the  format;  in  the  case  of  !'('  one  gets 
UC^lFlO.S  Simply  enter  a  space  and  40.0,  and  it  responds  with  40.00000,  The  i  on:- 
puter  will  then  prompt  you  for  the  remaining  variables  BL,  NSIAT,  Si,  et<  .  Ihi  e 
are  the  variables  that  are  previously  described  under  FILE  TRI.INE.  In  running  t  !u 
example  for  the  first  time,  have  Toble  5  next  to  vou  and  simply  t  vi'c  the  numtur- 
from  it. 

In  general  the  choice  of  f'  values  depends  on  how  the  streamlines  beliave  at 
the  other  stations.  If  they  converge  too  closely  in  a  region  interest  addi- 


TABLE  5  -  FILE  TBLINP 


100 

40.00000 

200 

0.14150 

300 

21 

400 

-0.60000 

0.60000 

500 

16 

600 

0.00000 

700 

-0.10472 

800 

-0.20944 

900 

-0.31416 

1000 

-0.41888 

1100 

-0.52360 

1  200 

-0.62832 

1300 

-0.7.3304 

1400 

-0.83776 

1500 

-0.94248 

1  600 

-0.04720 

1700 

-1 .15192 

1  fcoO 

- 1 .25364 

1900 

-1 .36136 

2000 

-  1.46608 

2100 

-1.57080 

JOOO 

1 .30000 

0.00040 

23(.'0 

1 .80000 

0.00040 

2400 

1  .S.'OOO 

0.00040 

2500 

1.80000 

0.00040 

2600 

1 .80000 

0.00040 

2700 

1 .80000 

0.00040 

2800 

1 .8COOO 

0.00040 

2900 

1 .80000 

0.00040 

3000 

1  .80000 

0.00040 

3100 

1  . 0  0  0  0  0 

0.'j0040 

iZ^^O 

:  .30000 

0.00040 

3300 

I .60000 

0.00040 

3400 

1 . boouo 

0.00040 

3500 

1  . 60000 

0 . vyV40 

3600 

1  . 8000V 

0.O0040 

J7C0 

1  .300v0 

0.00040 

.1800 

1600000.0 

0.00000 
0  ''0000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
O.OCoOO 
0.00000 
0.00000 
0.00000 
O.OOOOU 

o.ooooo 
0.00000 
0.0000 D 
0.00000 


TABLE  6  -  TERMINAL  DISPLAY  FOR  TBL18 


SSPA  MODEL  : 

7  «  1 

720 

f  1  1 

1.05407 

0.00946 

-0.06386 

-0.17969 

-2.17726 

1.30080 

-2.35902 

0.99482 

1.35102 

-1.27218 

0.09199 

-0.01678 

0.12962 

0.23842 

-1.63679 

-0.65025 

1.30540 

-1.17223 

-0.99895 

0.67261 

-C  '17 

-0.01482 

0.27346 

0.19518 

0.85676 

-0.34804 

0.'^0034 

2.46250 

-0.32998 

-0.98946 

-0.00560 

-0.00706 

0.00830 

0.22146 

0.35303 

-0.73910 

1.22848 

1.99487 

-0.70358 

-1.06058 

0.00609 

-0.01300 

-0.15698 

0.25859 

1.06743 

-1.09828 

1.64747 

3.20478 

-0.79404 

-1.32815 

0.00030 

-0.01009 

-0.05990 

0.14915 

0.62418 

-0.50594 

0.62018 

2.24264 

-0.25234 

-0.92001 

0.00096 

0.00142 

-0.01278 

-0.01756 

0.05647 

0.09382 

-0.17823 

-0.08303 

0.10064 

0.07818 

'r‘PT  DENOfES  THE  TTPE  OF  INPUT 

NiNPT>t  CARD  DATA 

2  REMOTE 

3  STORED  DATA 


NIMPT  tn 
MT 

2 

UU»  1F10.5 

40.0 

40.00000 
BL-  IF10.3 

0.14150 
0,14150 

NSTAT>  IIS 

21 
21 

SI  12  7F1D.5 

-0.6  0.6 

-0.40000  0.40000 

NTH*  IIS 
14 
U 

tin* 

0.0000 
-0.10472 
-0.20444 
-0.341414 
-O.41B08 


1.75289 
1.42619 
■2.45327 
•1.28947 
2.79267 
1 .8B688 
0.03944 


1FI0.3 


TABLE  6  —  (continued) 


J 


•0.52360 
•0.62832 
-0.73304 
-0.83776 
-0.9249 
-0.04720 
-1.15192 
-1.25664 
-1.36136 
-1.46608 
-1 .57080 
0.00000 
-0.10472 
-0.20944 
-0.34142 
-0.41888 
-0.52360 
-0.62832 
-0.73304 
-0.83776 
-0.92480 
-0.04720 
-1.15192 
-1.25664 
-1.36136 
-1.46608 
-1.57080 


H8 
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BETI  31 

1 .80000 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 
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0.00000 

1.8 

0.0 

0.0 
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0.00000 

0.00000 

1.8 

0.0004 

0.0 
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0.00040 

0.0:000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1 .80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1 .80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1 .80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1  ,  n  1 

/•i  O'  ■ 

f\  n-  nr 

TABLE  6  -  (continued) 


1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

i.a 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1.8 

0.0004 

0.0 

1.80000 

0.00040 

0.00000 

1F20.1 

1600000. 

,0 

1600000.0 
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tional  streamlines  should  be  presented.  The  initial  boundary  layer  parameters 
have  to  be  determined  experimentally  at  this  time.  Interval  size  should  be  halved 
and  the  solution  repeated  until  it  converges,  since  the  integration  method  is  the 
simple  Euler  method. 

In  the  process  of  entering  the  data  from  the  terminal  the  computer  creates 
FILE  TBLSAVE.  This  file  is  exactly  FILE  TBLINP  with  a  different  name;  thus,  once 
a  set  of  data  has  been  entered  it  is  saved.  If  you  are  nearly  finished  entering 
data  and  an  error  is  made  simply  continue  with  the  rest  of  the  entries  and  make 
editorial  corrections  to  TBLSAVE. 

All  the  computational  results  are  output  to  the  printer.  Table  7  shows  the 
output  for  the  example  case. 

Line  300:  INPUT  signifies  that  the  lines  between  300  and  2300  ^ire  the  input 
data. 

Line  500:  N  is  the  number  of  parameters  used  in  the  mapping,  and  KPK  is  the 
degree  plus  one  of  the  longitudinal  polynomials,  which  are  used  to 
interpret  the  mapping  parameters.  Here,  as  before,  BL  is  the  beam- 
to-length  ratio. 


Line  600:  NTH  and  NSTAT 
Line  700:  Si  and  S2 

Lines  800-2100:  present  the  components  of  the  matrix  BN(I,J), 

Line  2300:  Alpha-numeric  Title  identifying  the  data 

The  remaining  data  are  organized  by  station  and  are  tabulated  in  twenty  columns 
each  headed  by  the  variable  name.  Lines  49600-54000  show  the  example  data  for 
station  S  =  -0.0286. 


TH  9  coordinate  of  streamline  measured  from  x-axis 
X  x-coordlnate  of  the  streamline 

Y  y-coordinate  of  the  streamline 

CP  pressure  coefficient 

PSI  3p/3S  rate  of  change  in  pressure  along  streamline 
DTDS  de/ds 

R  metric  along  the  streamline 
Kl  geodesic  curvature  of  the  streamlines 

K2  geodesic  curvature  of  the  orthogonal  trajectories  to  the  streamlines 

PHI  potential  at  (5,0) 
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TABLE  7  -  PRINTER  FILE  FOR  TBL18 
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H  shape  parameter 
THll 
DE  H 
BETA  B 

CF  coefficient  of  skin  friction 
RS  not  used 

RTH  local  Reynolds  number 

CFW  skin-friction  coefficient  in  normal  direction 
CFB  skin-friction  coefficient  in  crossflow  direction 
CFS  skin-friction  coefficient  in  streamwise  direction 

3.3  TBL3D 

The  primary  output  from  TBL3D are  the  surface  coordinates,  distance  metrics, 
and  geodesic  curvatures.  The  actual  operation  of  the  program  is  very  similar  to 
the  operation  of  TRL18.  Input  data  is  entered  either  through  the  keyboard  in  re¬ 
sponse  to  the  computer's  prompting  or  it  is  entered  from  one  of  two  stored  files: 
FILE  8  TITLE  =  "BNSAL"  is  the  BNS  file  created  by  MAP  22,  FILE  10  TITLE  =  "TBL3DINP" 
is  a  file  created  by  the  present  program  during  a  previous  run. 

The  example  form  of  TBL3DINP  is  shown  in  Table  8. 


TABLE  8 

-  FILE  TBL3DINP 

100 

0.14150 

200 

-0.60000 

JOO 

0.60000 

400 

21 

500 

16 

Table  8:  File  TBL3DINP 
Line  100:  BL 

Line  200;  START  value  of  S  at  initial  station 
Line  300:  SFINIS  value  of  S  at  final  station 
Line  400:  NSTAT  number  of  stations 
Line  SOO:  NTH  number  of  0-values  used 

There  is  no  reason  to  enter  the  0-values  as  they  are  equally  spaced  from  0  to 

-n/2. 

Since  one  does  not  have  to  enter  0  or  the  initial  boundary  layer  parameters. 
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the  initial  run  with  this  program  is  simpler  than  it  is  with  TBL18.  Table  9  shows 
the  terminal  display  as  it  would  appear  for  TBL3D  after  going  through  an  Initial 
run  with  it.  Again  the  same  menu  for  NINPT.  One  then  enters  a  1,  if  a  BL  other 
than  1  is  to  be  used  followed  by  BY,  START,  SFINIS,  NSTAT,  and  NTH.  After  the 
computer  responds  with  the  value  of  NTH,  16  in  this  case,  it  prints  the  NTH  values 
of  0. 

In  general,  several  values  of  NTH  should  be  tried  such  as  20,  30,  40,  and  50 
to  check  the  accuracy  of  the  final  calculation.  The  number  of  stations  should  be 
chosen  experimentally  after  examining  the  results  from  TBLSOL,  Making  several  runs 
with  NTH  =  20  and  NSTAT  chosen  so  that  AS  =  0.050,  0.025,  0.020,  and  0.010  should 
provide  a  good  feel  for  how  the  solution  behaves  with  respect  to  AS.  If  some  area 
needs  further  refinement  of  the  grid  in  the  s-dlrection  for  convergence,  the  pro¬ 
gram  can  be  run  just  for  this  area  with  appropriate  choices  of  START  and  SFINIS. 

The  output  file  TBLSAVE  is  created  in  the  process  of  entering  the  data  from 
the  terminal;  it  is  exactly  TRL3DINP  with  a  different  name. 

All  the  computational  results  are  saved  in  TBL3D0PT  and  also  an  identical  copy 
on  the  PRINTER  file.  Table  10  shows  typical  output. 

Line  100;  identifies  the  data 

Line  200:  N,  KPK,  BL 

Line  300:  START,  SFINIS,  NSTAT,  NTH 

Line  400:  Station  number,  value  of  S  at  the  station 

Except  for  lines  400,  5300,  and  6200,  lines  beginning  with  1,  2,  3  have  the 
following  interpretation: 

1  X  y  6  u  V 


0 


S 

G 


The  values  (x,  y,  0,  S)  are  the  respective  coordinates  of  the  grid  point,  u, 
V,  w,  are  the  invlscld  velocities  of  the  fluid  in  the  (x,  y,  s)  coordinate  system; 
u,  and  u  are  the  velocities  in  the  <(i  and  0-directions  respectively,  while  u  is  a 

y  u  n 

normal  velocity  to  the  surface.  Since  the  inviscld  velocities  are  obtained  lere 
with  slender  body  theory,  is  not  identically  zero.  and  are  the  respective 

geodesic  curvatures.  H,  F,  and  G  are  functions  used  in  computing  the  metrics  of 
the  surface  coordinates  and  are  defined  in  Equations  (22)  and  (23). 


TABLE  9  -  TERMINAL  DISPLAY  FOR  TBL3D 


SSPA  MODEL  720 
?  If  1.00000 
1.05407  0.00946  -0.06386 

-2.35902  0.99482  t. 35102 


1.35102 

0.09199  -0.01678  0.12962 

1.30540  -1.17223  -0.99395 

-0.14817  -0.01482  0.27346 

0.50034  2.46250  -0.32998 

-0.00560  -0.00706  0.00830 

1.22848  1.99487  -0.70358 

0.00609  -0.01300  -0.15698 

1.64747  3.20478  -0.79404 


0.00609 
1.64747 
0.00030 
0.6201  8 
0.00096 
-0.17823 


3.20478  -0.79404  - 
-0.01009  -0.05990 
2.24264  -0.25234  -i 


0.00096  0.00142  -0.01278 

-0.17823  -0.08303  0.10064 

NINPT  DENOTES  THE  TYPE  OF  INPUT 

ninft=i  card  data 

2  REHQTE 

3  STORED  DATA 

NINPT  111 

«? 

2 

DO  YOU  WISH  TO  ENTER  NEW  BL? 

IF  YES  TYPE  1  NO  TYPE  0 
1 

BL=  1F10.5 
0.1415 
0.14150 

START=  IFIO.S 

-0.6 

-0.60000 

SFINIS*  IFIO.5 

0.6 

0.60000 

NSTAT^  113 

21 
21 

NTH=  113 

16 
16 

0.00000  -0.10472  -0.20944  -0 
-0.73304  -0,83776  -0.94248  -1 

-1.46608  -1,57080 


-0.17969 

-1.27218 

-2.17726 

1 .30080 

1.75289 

0.23842 

0.67261 

-1.63679 

-0.65025 

1.62619 

0.19518 

-0.98946 

0.85676 

-0.34804 

-2.45327 

0.22146 
-1  .06058 

0.35303 

-0.73910 

-1.28967 

0.25859 
-1 .32815 

1.06743 

-1.09828 

-2.79267 

0.14915 

-0.92001 

0.62418 

-0.50594 

-1.83683 

-0.01756 

0.07818 

0.05647 

C. 09382 

-0.03964 

IFIO.S 


IFIO.S 


:::K  -■!:=  j;- 
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TABLE  10  -  FILE  TBL3DOPT 


100 

SSPA  HODEL 

720 

200 

7  11 

0.14150 

300 

-0. 

60000  0.60000 

21 

16 

400 

1-0 

.6COOOC 

500 

1 

.1076487E+00 

0. 

0. 

.2228504E+00 

0. 

600 

2 

.1015192E+01 

.1039358E+01 

0. 

-.3304451E-02 

-.6000000E+00 

700 

3 

-.1746801E+01 

0. 

.1024530E+01 

0. 

.1319586E+00 

800 

1 

.1070765Et00 

-.1383975E-01 

-.1047198E+00 

.2260201E+00 

-.2191698E-01 

900 

2 

.1013320E+01 

.1038446E+01 

.1965947E-02 

-.2y49t63E-02 

-.6000375E+00 

1000 

3 

-.1503672E+01 

-.1295564E+00 

.1025467E+01 

.7'.61124E-03 

.ri29239E+00 

1100 

1 

.1055012E+00 

-.2772837E-01 

-.2094395E+00 

.2319952E+00 

-.5121243E-0t 

1200 

2 

.1008394E+01 

.1035967E+01 

-.8533613E-02 

-.1934473E-02 

-.6001429E+00 

1300 

3 

-.977a611E+00 

-.2079391E+00 

.1027713E+01 

.129B230E-02 

.133;M57£+00 

1400 

1 

.1032734E+00 

-.4142935E-01 

-.3141593E+00 

.2340332E+00 

-.9026146E-01 

1500 

2 

.1002341Et01 

.1032607E+01 

-.3647421E-01 

-.5599877E-03 

60028 10E+00 

1600 

3 

-.4966123E+00 

-.2322699E+00 

.1029947E+Ot 

.1340198E-02 

.130518SE+00 

1700 

1 

.1005a83E+00 

-.5440810E-01 

-.4188790E>00 

.2253837E+00 

-,1386364E+00 

1800 

2 

.9977760E+00 

.1029084Et01 

-.8100021E-01 

.54t5959E-03 

-.6003663E+00 

1900 

3 

-.2271720E+00 

-.236982iE^00 

.1031042E+01 

.2399263E-03 

.1218r79E+00 

2000 

1 

.9729968E-0I 

-.6610241E-01 

-.5235988E+00 

.1966538E+00 

-.1723716E+00 

2100 

2 

.9979270E+00 

.1025890E+01 

-.1381673E+00 

.5000537E-03 

-.6002711E+00 

2200 

3 

-.2092135E+00 

-.2620306E+00 

.103062VE+01 

-.211095aE-02 

.1102132E+00 

2300 

1 

.9300203E-01 

-.7623039E-01 

-.62831B5E+00 

.1398962E+00 

-.2356202E+00 

2400 

2 

.1005483E+01 

.102325  )E+01 

-.1975933E+00 

-.1257294E-02 

-.59?87::iE+O0 

2500 

3 

-.3959048E+00 

-.3209001E+00 

.1028985E+01 

-.5511206E-02 

.10111991+00 

2600 

1 

.873t204E-01 

-.8487507E-01 

-.7330383E+00 

.6810752E-01 

-.2464628E+O0 

2700 

2 

.1017983Et01 

.1021275Et01 

-.242I879E+00 

-.370B640E-02 

-.5991074E+00 

2800 

3 

-.6347227E+00 

-.3778387E+00 

.1026544E+01 

-,9095525E-02 

.9855563E-01 

2900 

1 

.8008766E-01 

-.9231333E-01 

-.B377580E+00 

.747;-'<;00E-02 

-.2276362E+O0 

3000 

2 

.1029067E>01 

.1020127E+01 

-.2643933E+00 

-.514665BE-02 

-.5979983E+O0 

3100 

3 

-.8234540E+00 

-.3865944E+00 

.1023555E+01 

-.1207957E-01 

.1O15647E^O0 

3200 

1 

.7144016E-01 

-.9876676E-01 

-.9424778E+00 

-.3567305E-01 

-. 196231 3E +00 

3300 

2 

.1036653E+0I 

.1020007E+01 

-.2720005E+00 

-.5376520E-02 

-.5966297E+O0 

3400 

3 

-.1024584E+01 

-.3442213E+00 

.1020069E+01 

-.1407044E-01 

.1065337E+00 

3500 

1 

.6158783E-01 

-.1042907E+00 

-.1047198E+01 

-.6534221E-01 

I5S6447E+O0 

3600 

2 

,104)305E+01 

.1020983E+01 

-.2670684E+00 

-.4768351 £-02 

-.5951080E+00 

3700 

3 

-.1324703E+01 

-.2781963E+00 

.1016111E+01 

-.1499O6VE-01 

.iir33:';6E+oo 

3800 

1 

.5071863E-01 

-.1088297E+00 

-.11519r7E+01 

-.8108-''‘^7E-0I 

-.1162588E+00 

3900 

2 

.1042699E^01 

.10228i2Ef0t 

-.2472945E>00 

-.356K  u-0.2 

-. 59354 97E +00 

4000 

3 

-.1750850E+01 

-.2162065E+00 

.10118141+01 

~.14770nE-01 

.1158369E+00 

4100 

1 

.3896382E-0t 

-.1123276E+00 

-.12566i7E+01 

-.804924  IE-01 

-./3503V6E-01 

42ftO 

2 

.1040407Et01 

.1024973E+01 

-.2091745E+00 

-.2133239E-02 

-.5920854E+00 

4300 

3 

-.2265229E+01 

-.1680927E+00 

.1007493E+01 

-.1319614E-01 

.12030AOE+00 

4400 

1 

.2645479E-01 

-.1147821E+00 

-.1361357E+01 

-.6403464E-01 

-.3700986E-01 

45C0 

2 

.1035503E+01 

.1026886E^01 

-.1524454E+O0 

-.9640050E-03 

-.5908674E+00 

40 


TABLE  10  —  (continued) 


4AOO 

3 

-.2774616E+01 

-.1236639E+0O 

.1003665E+01 

-.1006735E-01 

.1 24371 4E+00 

4700 

1 

.1338044E-01 

-.1162293E+00 

-.1466077E+01 

-.3535184E-01 

-.1254040E-01 

4800 

2 

.1030611E+01 

.1028144E+01 

-.8053472E-01 

-.3055445E-03 

-.5900534E+00 

4900 

3 

-.3155131E+01 

-.6822705E-01 

.1000980E+01 

-.5482609E-02 

.1272438EtO0 

5000 

\ 

-.3423824E-11 

-.1167067Et00 

-.1570796E+01 

.9717779E-11 

-.3919891E-02 

5100 

2 

.1028565E+01 

.1028572E+01 

.2i01379E-10 

-.1119698E-03 

-.5897664E+O0 

5200 

3 

-.3296611E+01 

.1903118E-10 

.iOOOOOBE+01 

.1400675E-11 

.1232839E+00 

5300 

2- 

0.540000 

5400 

1 

.1195187E+00 

0. 

0. 

.1726273E+00 

0. 

5500 

2 

.1033713Et01 

.1048012E+01 

0. 

-.5734943E-02 

-.5400000E+00 

5600 

3 

-.1740499E+01 

0. 

.1014791E+01 

0. 

.1470473E+00 

5700 

1 

.1 191601E+00 

-.1535795E-01 

-.t0471?8E>00 

.1772038E+00 

-.1206576E-01 

5800 

2 

.1032026Et01 

.1047081E+01 

.1461010E-01 

-.5599279E-02 

-.5401326E+00 

5900 

3 

-.1518471E+01 

-.4281959E-01 

.1015801E+01 

.2532992E-02 

.1459863E+00 

6000 

1 

.1130539E+00 

-.3042280E-01 

-.2094395E+00 

.1 87701 4EtOO 

-.3271569E-01 

6100 

2 

.1027007E+01 

.1044418E+01 

.1453239E-01 

-.503a358E-02 

-.5404757E+00 

6200 

3 

-.9943291E+00 

-.8043367E-01 

.1018293E+01 

.4022324E-02 

.1420645E+00 

6300 

1 

.1162987E+00 

-.443I263E'01 

-.3141593E+00 

.1959246Ef00 

-.6581593E-01 

6400 

2 

.1019780E+01 

.1040483E+01 

-.6936500E-02 

-.3939546E-02 

-.5408890E+00 

6500 

3 

-.4560700E+00 

-.1161479E+00 

.1020887E+01 

.3873435E-02 

.1343139E+00 

6600 

1 

.1138514E+00 

-.5808049E-01 

-.4188790E+00 

.1928358EfOO 

-.1103753E+00 

6700 

2 

.1012894E+01 

.1035865E+01 

-.4796494E-0t 

-.2676672E-02 

-.5412007E+00 

6800 

3 

-.1365952E+00 

-.1631869E+00 

.1022421E+01 

.20801 12E-02 

.1231138E+00 

6900 

1 

.1104692E+00 

-.6985761E-01 

-.5235938E+00 

.168y534E+00 

-.1599221E+00 

7000 

2 

.1009655E+01 

.10iH39E+01 

-.1013624E+00 

-.2015065E-02 

-.54126roEH>0 

7100 

3 

-.1269329E+00 

-.2349296E+00 

.1022553E+01 

-.920B378E-03 

.1113327E+O0 

7200 

1 

.1O57922EtO0 

-.8000459E-01 

-.6283135E+00 

.1197554EtOO 

-.1984719E+00 

7300 

2 

.1012270E+01 

.1026784E+01 

-.1553451E+00 

-■2455138E-02 

".5409783E+00 

7400 

3 

-.3184498E+00 

-.3224631E+00 

.1021645E+01 

-.4491291E-02 

.1033845E+00 

7500 

1 

.9953330E-01 

-.8862767E-01 

-.7330383E+00 

.5818337E-01 

-.20934.23E+00 

7600 

2 

.1019080E+01 

.1023169Et01 

-.1970950E+00 

-.3464412E-02 

-.5403230E+00 

7700 

3 

-.4661877E+00 

-.3861478E+00 

.1020180E+01 

-.8029229E-02 

.1019603E+00 

7800 

1 

.9161058E-01 

-  .9594043E-01 

-.8377580E+00 

.3V55355E-02 

-.195O477E+O0 

7900 

2 

.1026277E+0t 

.1020569E+01 

-.2229923E+00 

-.412478aE-02 

-.5393205E+00 

BOOO 

3 

-.5293835E+00 

-.3977186E+00 

.1018335E+01 

-.in2082E-01 

.1058141E+C0 

8100 

1 

.8212461E-01 

-.1020975E+00 

-.9424778E^v0 

-.3674202E-01 

-.1666526E+00 

8200 

2 

.1032070E+01 

.1019121E+01 

-.2359362E+00 

-.4142793E-02 

-.5380306E+00 

8300 

3 

-,6B24672Et00 

-.3690810E*-00 

.1015992E+01 

-.1351304E-01 

.1120865E+00 

8400 

1 

.7I23166E-01 

-.1071360E+00 

-.1047198E+O1 

-.6320235E-01 

-.1296369E+O0 

8500 

2 

.1035474E+01 

,1018731E+01 

-.2349075EI-00 

-.3510063E-02 

-.5365384E+O0 

8600 

3 

-.1017475E+01 

-.3273791E+00 

.1013031E+01 

-.1498293E-01 

.1173080E+00 

8700 

1 

.5904541E-01 

-.1 1 1C407E+00 

-.1151917E+01 

-.7316435E-01 

-.3907492E-01 

8800 

2 

.1035281E+01 

.1019042E+01 

-.2159651E+00 

-.241 1822E-02 

-.5349592E+O0 

8900 

3 

-.1465833E+01 

-.2884922E+00 

.1009573E+01 

-.1517921E-01 

.1273743E+O0 

VOOO 

1 

.4564362E-01 

-.1 13842IE+00 

-.1256637E+01 

-.6700109E-01 

-.5.243209E-01 
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3.4  CBLGEO 

CBLGEO  sets  up  the  panels  for  the  potential  calculation.  It  computes  the 
(S,  X,  y)  coordinates  of  the  panel  corners  and  stores  these  values  In  FILE  7 
TITLE  =  "CBL3D0PT". 

Input  data  Is  again  entered  through  the  keyboard  in  response  to  the  computer's 
prompting  or  it  is  entered  from  one  of  two  stored  files:  FILE  R  TITLE  =  "BNSAL", 
the  BNS  file  created  by  MAP  22,  or  FILE  10  TITLE  =  CBL3D1NP",  a  file  created  by 
the  present  program  during  a  previous  run.  This  latter  file  has  the  same  entries 
as  TBL3DINP. 

Table  11  shows  the  example  problem  being  run  from  the  terminal  with  entries 
made  remotely  NINPT  =2.  Note  that  there  is  no  need  to  enter  START  or  SFINIS  as 
these  values  are  set  by  the  program.  After  NTH  =  10  is  entered  and  echoed  the  ten 
values  of  0  are  printed  at  the  terminal. 

There  are  two  output  files:  FILE  11  TITLE  =  "CBLTAPE"  and  CBL3D0PT. 

CBLTAPE  is  created  in  the  process  of  entering  the  data  from  the  terminal;  it  is 
exactly  CBL3DINP  with  a  different  name.  CBL3D0PT  contains  all  the  panel  data  to 
be  passed  onto  the  potential  program.  Table  12  shows  the  output  for  the  example 
case.  Only  the  first  four  panels  are  shown. 

Line  100:  identifies  the  data 

Line  200:  N,  KPK,  BL 

Line  300:  START,  SFINIS,  NSTAT,  NTH 

Line  400:  1  first  panel 

Note  that  lines  400,  1000,  1600,  2200  give  the  panel  number  for  the  next  five 
lines  of  data.  Lines  beginning  with  1,  2,  3,  4,  and  5  have  the  following  nomen¬ 
clature: 


1 

S(I) 

x(I,J) 

y(i,J) 

TTH(J) 

2 

S(I+1) 

x(I+l, J) 

y(iH,J) 

TTH(J) 

3 

S(I+1) 

x(I+l,  J+1) 

y(I+l,  J+1) 

TTH(J+1) 

4 

S(I) 

x(I,  J+1) 

y(i,  J+1) 

TTH(J+1) 

5 

SR(MD) 

XE(MP) 

YE(MP) 

TTE(MP) 
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TABLE  11  -  TERMINAL  DISPLAY  FOR  CBL 


SSPA  HOIlEL  720 


7  1 1 

1 .00000 

1  .OS-tO? 

0.00946 

-0.06386 

-0.17969 

-2.17726 

1'. 30080 

1.75289 

-2.35902 

0.99482 

1.35102 

-1.27218 

0.09199 

-0.01678 

0.12962 

0.23842 

-1.63679 

-0.65025 

1  .62619 

1.30540 

-1.17223 

-0.99895 

0.67261 

-y. 14817 

-0.01482 

0.27346 

0.19518 

0.85676 

-0.34B04 

-2.45327 

0.50034 

2.46250 

-0.32998 

-0.98946 

-0.00540 

-0.00706 

0.00830 

0.22146 

0.35303 

-0.73910 

-1  ,,28967 

1.22848 

1  .99487 

-0.70358 

-1.06058 

0.00609 

-0,01300 

-0.15698 

0.25859 

1  .06743 

-1 .09828 

-2.79267 

1.64747 

3.20478 

-0.79404 

-1.32815 

0.00030 

-0.01009 

-0.05990 

0.14915 

0.62418 

-0.50594 

-1  .88688 

0.62018 

2.24264 

-0.25234 

-0.92001 

0.00096 

0.00142 

-0.01278 

-0.01756 

0.05647 

0.09382 

-0.03964 

-0.17823 

-0.08303 

0.10064 

0.07818 

NINPT  DENOTES  THE  TYPE  OF  INPUT 
NlHPT^I  CARD  DATA 


2  REMOTE 

3  STORED  DATA 


idNPT  III 

»? 

2 

HO  YUU  UISH  TO  ENTER  NEU  BL? 
IF  YES  TYPE  1  NO  TYPE  0 


tiL^  1F10 

.5 

0.1415 

0. 1,4150 
HbTAT= 

113 

25 

j5 

NTH- 

113 

10 

10 

0.00000 

-0.17453 

-0.34907  -0.52360  -0.69813  -0.87266  -1.04720 

-1.22173 

-1.39626 

-1.57080 
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TABLE  12  -  FILE  CBI.IWPT 


1C.. 

•:  L  7 

C\.\J 

1’. 

,  1  ' 

3CL 

-l.Ct 

w  C  J  1  •  .  . 

>  A  .S 

^  ^  J 

;  r 

4  CU 

1 

5Cv> 

1 

A  'N 

'*  r  ^ 

ec  D 

2 

- O.V 1 €o7 

0.020^9 

•  L  c  u  C  3 

7L0 

1 

-O.VlcS? 

':.ci9^‘ 

- : . i  '■  4 1 

PC« 

4 

-1-CyCOO 

:  .‘j/'oo:. 

-  ^ f  ’  ? 

vcu 

c 

-0.95533 

.  0  l  0  7  5 

-  C  .  0  L  fa  ’  1 

1  cco 

2 

I  ICU 

1 

-l.CuCC  3 

r  .  jr 

-c .c.e  *? 

12C0 

2 

-0.916.j7 

0 .01  9  ’6 

-C. 0^541 

1  3C0 

3 

-C.9l6f 7 

''.0  165’ 

-C.C3242 

14Cu 

4 

-i.c  j':o< 

•:.0  6  C 

-  “ .  3 1 6 : : 

nco 

c 

-0.95633 

3.00379 

i  9 : 2 

16CJ 

4 

1  7Cj 

1 

-i.coco: 

O.oc  .•'•  3 

-  3  .  3  :  6  '  V. 

16C0 

2 

-0.916^7 

0.:  165? 

-C  .Ci  ?4? 

19C0 

1 

•3.yl63« 

0  . 1  4  ?  4 

-3.04934 

2;oCu 

4 

-Kccno 

'  .0006’ 

-:.02 

21C0 

c 

•0.95633 

C.0C7 1: 

-:.''i357 

22C0 

4 

2iCo 

1 

—  1.4.uC'yv 

: .  0  c c : 

-r.Ct35i 

24C0 

2 

-C,9l6t>7 

3.01474 

-  3  .  Om  9  7  4 

25CC 

1 

•C .9 1 6o  7 

3.01301 

-C. 06  395 

^  6  C  ^ 

4 

-  1  .  t  0  C  C  J 

c.ocooo 

-  C  .  6,  j  c  3  r 

27C0 

c 

- J.>5c53 

e .  0  c  6  4 1 

-C.C^665 
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:  .  r  c  c  0 

.  1 7  fc ' ! 
''.174^1 
C .C  ?7  27 

.1  71.  =  J 
C  .174  =3 
0  .340  r7 
■■'  .  3  4  0  C  7 
C  .2  -  1  f ^ 

: . !  4  0  r  7 

" .349  C7 

C  .5  23 
c  “If-: 

D  .  4  ^  f,  !  ^ 

0  .  ^  ^ 

0  .523  60 
C .6  90  13 
3.69215 
0 .6  1  C  6  7 


Thf  !  1  n»'S  1  t  t  .  •  1  •  (  .  1  I  .  1  -  !  ‘  :  •  .  •  . 

t  i  f  t  1  Ini-  k'  i  Vf  t  '•  t  I  ;  ■  i  '  ,'c  •  : ■  r  :  ;  •  .  ■  • 

values  o  t  t  tie  (i,  ■  t  i-u  r  i  ,i  1  w  i  !  !  ‘  .  .  i  .  i" .  . 

DCmi)!)  romput  es  !  tii-  pul  .-ut  i.i  .  •  n  •  ;  .  •  ■  .  ,  ■  , 

panel  kieometrv  t  rum  ('Kii'f-u.  in.  i  :r 
ac  tlvelv  slmplv  si-t  uru,  mlua',  i  im.  .  • 

jues  with  t  lie  ,ip]irupr  i.i!  t  i  iiiu  r  i  -.;  r  . 

Fll.F  1’  TITI  F  =  HI  MHip”’  w-  i.  •  i  .  r  .  •  •  ■ 

pu  t  f  i  1  e  ,  F  1 !  ,r  1  -  ;.M  I'  H :  . 

appear  fur  the  i-x.inipl.  .usi-,  e:l,  ih,  '  le,  ■  •  . 

foil nws : 

l  ine  Will;  ','1'  111,,  t.  ta!  'Vi-.r.-t  ...i-;.  ! 

Fine  .’FO;  ','ev(i>  '  ... 

pane  W  in  .■  i  r  t  ■  ■!  i  r  t  ;  . 

line  Mlfi;  s-cuoriiiinit  e  at  whl.  •  t-.  ,  . 

‘  ou  rd  i  !M  t  e  and  [’>•■  I  -.M  1 1; ,  •  ,  • 

typical  of  t  h<'  remainuii’  liiu-.  in  the  •iW. 

3.6  TBIIPC 

This  program  is  niainlv  a  ui  i  1  i  i tu.-.i  tp  i-,ed  ’  •  t 

and  the  geomet  rv  data  for  input  int"  t  ht  'iuurdat  i  .a  t 
is  reasonable  fast  lakitm  about  a  r.  inuli-  *.  l.-'a.i  a 

four  minutes  for  tlie  data  from  DOI  nni'.  Ih.  re  it-  t  w.  • 

"TBL3n0PT"  and  Fill  i:  TITIF  -  "DiilBlHiPT" .  Hull  tii,,  ,r. 
potential  based  on  the  doublet  distribution  io  ‘ui  . 

the  case  of  the  slender  hodv  pot  ntial  flow. 

In  the  interactive  operation  there  is  on  1  \  ora  .lata  ,  •. 
the  operator.  If  the  data  is  from  IMM'pni),  t  tie  d.at.,  is  irpl 
0.  The  number  that  appears  on  the  screen  iilent  it  ies  tin  da 

Table  14  shows  the  screen  for  the  test  rase.  The  data 
for  the  SSPA  Model  720.  In  the  next  line  N^7,  FPF-11,  and 

4S 


24 

.1 

i#C 

-  .  ?'j4'  4EOO 

.11081E-O1  - 

.61080E-02 

40& 

-.953! lE^OO 

.t0t2»E-0l  - 

. I8B14E-01 

500 

- .95275E«00 

.88904E-02  - 

.3I775E-OI 

6  0C 

-  .V93l5E‘C0 

. 'S0'3E-O2  ■ 

.43426E'0I 

'00 

-  .95303E*00 

.95537E-02  - 

.54083E-0I 

80C 

-.?52i»E*00 

.50IB3E-02  - 

.43442E-01 

900 

-.»5182E«0C 

.3530IE-02  - 

.709001-0' 

1  000 

-.95i95E«0C 

.22243E-02 

-.75735E-0I 

1  !  OC 

-.94743£«00 

.87134E-03 

-.ei059£-01 

1200 

-.873i7E»00 

.3'086E-01 

-.84092E-02 

•300 

■  .8.-4I  3£»00 

.2874*E-01 

-.25893E-0I 

1  400 

-  .  87427E*00 

.:595lE-0i 

-.43865E-01 

1500 

-  .874' 5£*00 

.23302E-01 

604681 -01 

uoo 

-  .B739*E*00 

. 19858E-0I 

-.74786E-01 

:  /  00 

-  .87385E*00 

.15450E-Ot 

-.87'l5E-0t 

'BOO 

-  .B''30?£t00 

. 1 0947E-01 

- .973441-01 

1  ?00 

-  .b'128E»C0 

. t43B2E -02 

- . 104;4E+00 

:occ 

'  .67C3'E»0C 

..  2  28‘.[-02 

-. ’0854E+00 

.9eoV6£+00 

.9B506E+00 

.9855*£t00 

,981C3£^00 

.9801  9£>-00 

.97t«)’E  +  00 

.9693B£«00 

-.95868E*00 

-.9933ti+00 

-.92329E+00 

-.91733£tOO 

-.91827C+O0 

-.9:244EfOO 

-.928l7E*yO 

-.92725E-00 

- .91640E+00 

-.93054E+00 

- . VIbodE’CO 


TABLE  14  -  TERMINAL  DISPLAY  FOR  TBLIPC 


SSPA  nOOCL  72* 

7  It  •.t4IS« 

8t  16 

16  -.i•4719K«M  -.95492946*61 

IF  THRCE  DinCMIOMAL  POTENTIAL  IS  FRON  NINC'S  PROCRMt 
enter  I  SLENDER  BODV  ENTER  6 

I 

216 

24  9 

216 

ratio  is  0.14150.  The  initial  station  for  the  data  is  S  =  -0.6,  and  the  last 
station  is  S=0.ii  There  are  21  stations  to  be  used  in  the  lengthwise  direction, 
and  16  values  of  .  The  16  values  of  0  are  equally  spaced  with  .*0  =  -0.1047198 
and  1/A6  =  -9.549294.  In  the  case  shown  the  doublet  distribution  potential  is 
used  so  a  1  appears  as  the  answer  to  the  question.  There  were  216  panels  used  in 
the  doublet  method:  24  in  the  lengthwise  direction  and  9  in  the  girth  direction. 
The  final  216  indicates  that  the  program  is  reading  the  data  for  the  216  panels. 

There  is  only  one  output  file,  FILE  7  TITLE  =  "TBLIPCOPT".  A  representative 
portion  of  it  is  shown  in  Table  15. 

Line  100:  Data  indent  if icat ion 

Line  200:  N,  KPK,  and  BL 

Line  300;  START,  SFIMS,NSTAT,  and  NTH 

Line  400:  The  station  number  and  the  value  of  S  at  this  station. 

Lines  beginning  with  1,  2,  and  3  have  the  data  organized  as  follows: 

1  X  y  0  u^^  u^ 

2  S  du  /d-  du  /df  du  /dr  du./dr, 

V  t  i  ■  •-  7 

3  K,.,  H  F  C 

3.7  TBLSOL 

This  final  program  of  the  suite,  TBLSOL,  computes  the  boundarv-laver  momentum 
thickness,  THll,  the  tangent  of  the  crossflow  angle  T,  and  the  shape  parameter  H. 
Input  data  is  entered  cither  through  the  keyboard  in  answer  to  prompting  from  the 
computer,  or  it  is  read  from  the  stored  file:  FILE  8  TITLE  ="TBLIPCOPT" ,  This 
file  is  created  by  TBLIPC  and  is  described  in  Section  3.6. 
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Table  16  shows  the  example  problem  being  run  from  the  terminal.  The  first 

two  rows  of  numbers  are  the  polynomial  coefficients  In  the  skin  friction  formula 

9 

given  by  Head  and  Patel  .  These  are  fixed  values  and  appear  as  data  Items  In  the 

program  Itself.  In  the  example  case  the  number  of  stations  at  which  the  boundary 

layer  Is  to  be  calculated  Is  NS=21  with  only  one  Iteration  at  each  step,  NT=1. 

TOL  Is  the  present  value  of  tolerance  used  In  the  program;  any  number  less  than 

-9 

TOL  Is  considered  zero.  There  should  be  no  need  to  change  the  value  from  10 
If  a  larger  TOL  Is  needed.  It  Is  likely  that  something  Is  going  wrong  in  the  com¬ 
putation  or  the  initial  data  is  not  physically  correct. 

In  the  example,  constant  values  were  used  for  the  initial  data;  these  were 
THll  =  O.OOOA,  T=0,  and  H=l,4  where  THll  has  been  nondimens ionalized  with  respect 
to  the  semi-hull  length.  These  values  are  entered  at  the  appropriate  prompting. 

The  initial  data  will  generally  be  obtained  from  experimental  data.  In  the 
four  cases  that  this  program  was  used  with  experimental  data,  different  inter¬ 
polation  methods  were  used.  This  amounted  to  writing  a  subroutine  to  interpolate 
the  experimental  data  in  each  case  as  a  function  of  6  and  simply  calling  the  sub¬ 
routine  to  set  the  initial  values.  Enter  a  call  for  this  subroutine  at  line  2500 
in  Subroutine  INITIAL  and  change  2500  from  STOP  to  RETURN.  If  initial  data  is 
entered  as  a  function  of  6  merely  respond  with  a  1  and  the  progrtim  will  ask  for  the 
initial  data  at  jAS,  j  =  0,  1,  2,  ...,  NTH. 

The  output  for  the  test  case  is  presented  in  Table  17. 

Line  100;  NS  and  NI 

Line  200:  Title 

Line  300:  N,  KPK,  and  BL 

Line  400;  START, SFINIS ,  NSTAT,  and  NTH 

Line  500;  THll,  T,  and  H 

Line  1200:  Station  1,  S  at  initial  station 
Lines  1300  Through  6100  have  the  following  format: 

6  u ,  u. 


y 

du  /dP 
<j)  ( 

K 


dUg/dP^ 


du  /dP 

H  ( 


Lines  6200  through  7900  are  typical  of  the  output  for  each  station.  Line  6200  has 
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TABLE  16  -  TERMINAL  DISPLAY  FOR  TBLSOL 


RUN  TBLSOL 
HRUNNIHO  43S9 

-0.000701  0.028345  -0.386738  0.019S21 

-0.0019S3  0.062S88  -0.834800  0.191511 

NS  IS  NUHBER  OF  STATIONS  AT  WHICH  BOUNDARY  LAYER  IS 

TO  BE  CALCULATED 

NS»  113 

N* 

21 

21 

NI  IS  NUHBER  OF  ITTERATIQKS  AT  EACH  STEF 
Nla  113 
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TOL«  .10000E-03 

IF  THE  INITIAL  VALUES  ARE  CONSTANT  ENTER  0 
OTHERWISE  ENTER  A  1 
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the  station  number  and  station  s  coordinate.  The  remaining  lines  give  the  boundary 
-layer  parameters  around  the  girth  at  station  s  as  a  function  of  0. 

Running  time  for  this  program  has  always  been  less  than  five  minutes. 

4 .  CONCLUDING  REMARKS 

This  report  presents  a  suite  of  computer  programs  for  computing  three  dimen¬ 
sional  boundary  layers  for  ships.  Most  of  the  technical  details  for  carrying  out 
the  computations  are  explained  and  demonstrated  in  the  form  of  a  worked  out 
example.  The  computer  programs  are  in  a  structured  form  that  permits  modification 
to  empirical  formulas  as  better  empirical  approximations  are  developed,  e.g.  an 
improved  crossflow  model  when  new  experimental  data  becomes  available.  Alterna¬ 
tively,  individual  programs  described  in  this  report,  such  as  MAP22,  and  DOUBDD 
can  be  used  independently  or  with  other  methods  for  calculating  the  boundary  layer. 

There  are  some  choices  that  must  be  made  in  the  input  data  to  these  programs. 
The  number  of  hull  offsets  to  be  used  in  obtaining  the  rational  hull  approximation 
together  with  the  degree  of  the  lengthwise  approximating  polynomial  and  the  degree 
of  the  conformal  mapping  are  the  most  difficult  choices  to  be  made.  The  values 
used  in  the  example  are  a  good  starting  guess;  however,  these  numbers  should  be 
determined  by  comparing  the  agreement  of  the  approximating  offsets  with  the 
physical  hull  offsets  and  by  examining  the  smoothness  of  the  approximating  hull 
shape.  Changing  the  degree  of  the  lengthwise  polynomial  and  the  number  of  para¬ 
meters  in  the  conformal  mapping  will  change  the  smoothness  of  the  approximating 
hull  form.  250  panels  should  be  used  in  the  potential  calculation;  the  panel 
dimensions  should  be  chosen  so  that  the  longest  panel  dimension  is  in  the  direction 
of  the  freestream  flow.  In  the  boundary  layer  calculation  40  girthwise  values 
should  be  used. 

von  Kerczek  and  Langan  concluded  that  the  present  boundary  layer  calculations 
method  can  predict  boundary  layers  on  relatively  fine  double  ship  models  with  fair 
accuracy  to  within  a  distance  of  the  stern  of  about  10  percent  of  the  ship’s 
length  for  the  SSPA  Model  720.  In  the  stern  area,  the  boundary  layer  thickens  very 
rapidly  and  approaches  separation.  Calculation  of  this  near-separated  boundary 
layer  region  must  await  further  developments  of  boundary  layer  theory. 
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APPENDIX 

PROGRAM  LISTINGS 
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100  FILE  5(TITLE="PFN",KIND=DISK,F1LETYPE=7) 

110  FILE  8(TITLE=“ANS‘*,KIHD=DISK,PR0TECTI0N=SAVE,NAXRECSIZE=22) 

115  FILE  9(TITLE="BNS%KIND=0ISK,PR0TECTI0N=SAVE,«AXRECSIZE=22) 

120  FILE  6(KIND=PRINTER,HAXRECSI2E=22) 

130  $RESET  FREE 

135  C  PROGRAH  rtAP22 

140  COHHQN  /A1/  Xi1S(50,50) ,  YHS(50,50) 

150  COMMON  /A2/  AN(50,10) 

160  COMMON  /A3/  BN(25,10) 

170  COMMON  /A4/  BE(25,25) 

1B0  C 

190  C  NAP  FITS  AN  ANALYTIC  SURFACE  TO  A  SHIP  HULL 

200  C  POINTS  AT  THE  UATERLINE  AND  AT  THE  KEEL  CONSTRAINED  -  ALL  STAT 
210 

220  C  XMS  X  OFFSET  OF  A  POINT  ON  THE  HULL 

230  C  YMS  Y  OFFSET  OF  A  POINT  ON  THE  HULL 

240  C  AN(I,J)  MAPPING  COEFFICIENTS  AT  STATION  I 

250  C  BN(I.J)  CALCULATED  A  SUB  MN 

260  C  BS(I,J)  COEFFICIENT  MATRIX 

270  C  KT(I)  NUMBER  OF  OFFSETS  GIVEN  AT  STATION  I 

280  COMMON  /A5/  kT(50) 

290  COMMON  7A6/  IFS(50) 

300  COMMON  /A7/  JFS(50) 

310  COMMON  /A8/  TITLE(12) 

320  COMMON  /A9/  THETA<50) 

330  COMMON  /B1/  S(50) 

340  COMMON  /B2/  APdO; 

350  COMMON  /B3/  B(50) ,H(50) ,SA<50) 

360  CALL  INPUT(K,N,IST1 .IST2,KP1,KP2,T0L,BL; 

370  CALL  CONTRA(K,N,TOL> 

380  IF(K.LE.2)  GO  TO  5 

390  CALL  P0LY(1,IST1,N,KP1) 

400  5  CALL  OUTPUTd ,IST1,N,KP1 ,BL) 

410  IF(ISTI-K)  1,2,2 

420  1  CALL  P0LtaST2.K,N.KP2) 

430  CALL  0UTPUT<ISr2,K,M,KP2,BL) 

440  IF(IST2-ISn)  2,2,3 

450  3  DO  4  J=1,N 

460  BN(I ,J)=BL*AN(IST1 ,J) 

470  4  BN(2,J)=0.0 

480  CALL  0UTPUT(IST1,IST2,M,2,BL) 

490  2  STOP 

500  END 
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510 

SUBROUTINE 

INPUT(K,N,IST1 ,IST2,KP1,KP2,T0L,BL) 

520 

530 

C 

SUBROUTINE  INPUT  CONTAINS  ALL  READ  STATEMENTS  FOR 

MAP 

540 

550 

c 

XNS 

X  OFFSET  OF  A  POINT  ON  THE  HULL 

560 

c 

YNS 

Y  OFFSET  OF  A  POINT  ON  THE  HULL 

570 

c 

AN(I,J) 

NAPPING  COEFFICIENTS  AT  STATION  I 

580 

c 

BN(I,J) 

CALCULATED  A  SUB  NN 

590 

c 

BS(I,J) 

COEFFICIENT  rtATRIX 

600 

c 

KT(I) 

NUMBER  OF  OFFSETS  GIVEN  AT  SIAIION 

I 

610 

620 

c 

IFS(I) 

1  NO  CONS  IRAN rs  AT  STATION  I 

630 

c 

2  SURFACE  AT  STATION  I  TO  PASS  THROUGH 

640 

c 

3  AT  STATION  I  SLOPE  UITH  RESPECT 

TO  S 

650 

c 

4  2  AND  3  COMBINED 

660 

c 

5  AT  STATION  I  SLOPE  AND  CURVATURE 

ARE 

670 

c 

6  2. 3, AND  5  COMBINED 

680 

690 

c 

JFS(I) 

0  AN  READ  IN  AT  STATION  I 

700 

c 

1  COMPUTE  AN 

710 

’20 

c 

TITLE 

IDENTIFIES  COMPUTATIONS-  144  CHARACTERS 

730 

c 

TH£[A( J) 

PHI  SUB  J  AT  A  GIVEN  STATION 

740 

c 

S(  i ) 

S  AT  station  I 

750 

c 

AP 

mapping  COEFFICIENTS  AT  A  GIVEN  STATION 

760 

c 

B(I) 

B  EAM  AT  STATION  I 

770 

c 

H(I) 

DRAFT  AT  STATION  I 

780 

t. 

SA(1) 

CROSS  SECTIONAL  AREA  AT  STATION  I 

790 

HOO 

COfIMON  /A1/ 

XMS(50,50) ,YNS(50.50) 

310 

CONNON  /A2/ 

AN(50, 10) 

320 

COMMON  7A5/ 

KT(50) 

830 

COMMON  /'A67 

IFS(50) 

340 

CONNON  /A7/ 

JFS(50) 

850 

CONNON  /A8/ 

TITLEdJ) 

860 

CONNON  /B17 

S(50) 

870 

DIMENSION  IX(50i  ,IY(50) 

360 

REA0(5,2-1) 

(TITLE(J), 0=1.12) 

890 

f(EAD(5,3)  ISn  ,IST2.KP1  .KP2 

900 

READ(5,1)  K 

.N.  TOL.BL 

910 

DO  58  1  =  1  ,K 

7  20 

DO  58  J=1  ,N 

9  30 

58  AN(I,J)=0.0 

940 

RF.AD(5.3)  <  IFS(  I ) ,  1  =  1  ,K  ) 

950 

READ'S. 3)  k 

JFSU  '  .1  =1  ,K  ' 

IS  0 


56 


960 

READ(5,25)(KT(I),I=1,K) 

970 

DO  33  1=1  ,K 

980 

M=KT(I) 

990 

READ(5,4)  (IX<J),IY(J).J=1,I1) 

1000 

DO  34  J=l,rl 

1010 

X«S(1,J)=FL0AT(IX(J)) 

1020 

34 

YMS(I,J)=FLOAT(IY(J)) 

1030 

33 

CONTINUE 

1040 

XHAX=Xf1S(10,1 ) 

1050 

DO  35  1=1,14 

1060 

N=KT  ( I ) 

1070 

DO  35  J=1,M 

1080 

XilSd.J)  =XMS(I,J)/XMAX 

1090 

35 

YMS(I,J)  =  Y(1S(I,J)/XHAX 

1100 

DO  36  1=15, K 

1110 

rt=KT(l) 

1120 

DO  36  J=1,M 

1130 

X«Sa,J)=-XMS(l,J)/Xt4AX 

1140 

36 

t'(1S(I,J)=rMS(I,J)/XMAX 

1150 

ftEAD<5,2)  (S(I),I=1,K) 

1160 

DO  31  1  =  1  .K 

1170 

IF(JFS(I))  31,32,31 

1180 

32 

READ<5,2)  <AN(I,J),J=1,N) 

1190 

31 

CONTINUE 

1200 

UFtIT£(6,40) 

I210 

URITE(6,24)  (TITL£(J),J=1,12) 

1215 

URITE(9,24)  (TIILE(J),J=1 ,12) 

1220 

URI[E(6,19) 

1230 

DO  21  1=1, K 

1240 

f1=KT(I) 

1250 

URITE(6,22)  I,S<I) 

1260 

21 

URITE(6,23) (XMS(I,J),YMS(I,J),J=1 ,f1) 

1270 

100 

RETURN 

1280 

1 

F0R«AT\2I10,2F10.5) 

1290 

4 

F0RMAT(6( rx,216) ) 

1300 

2 

FORrtAT  (7F10.5) 

1310  3 

F0R(1AT(14I5) 

1320 

25 

FORMAT (71 10) 

1330 

24 

FORMAT (12A6) 

1  340 

40 

FORMATdHI  ) 

1  350 

19 

FORMAT (19H  THE  INPUT  OFFSETS  /// 

1360 

22 

F0RMAT(/756H 

1370 

IS(,I2,2H)=F5.2//) 

1380 

23 

F0RMAT(F30.5,F16.5) 

1  390 

END 

57 


MOO  SUBROUTINE  CONTRA<K,NJOL ) 

MtO 

M20  C  SUBROUTINE  CONTRA  CONFUTES  THE  PARAHETERS  IN  THE  CONFORNAL  NAP  OF  TH 

M30  C  UNIT  CIRCLE  ONTO  THE  CROSS  SECTION 

M40 

M50  C  XNS  X  OFFSET  OF  A  POINT  ON  THE  HULL 

MAO  C  YHS  Y  OFFSET  OF  A  POINT  ON  THE  HULL 

M70  C  ^N<I,J)  HAPPING  COEFFICIENTS  AT  STATION  I 

1480  C  BSd.J)  COEFFICIENT  NATRIX 

M90  C  KT(I)  NUHBER  OF  OFFSETS  GIVEN  AT  STATION  1 

1500 

1510  C  JFS(I)  0  AN  READ  IN  AT  STATION  I 

1520  C  1  COHPUTE  AN 

1530 

1540  C  THETA<J)  PHI  SUB  J  AT  A  GIVEN  STATION 

1550  C  AP  HAPPING  COEFFICIENTS  AT  A  GIVEN  STATION 

1560  C  B(l)  B  EAH  AT  STATION  1 

1570  C  H(I)  DRAFT  AT  STATION  I 

1580  C  SA(I)  CROSS  SECTIONAL  AREA  AT  STATION  I 

1590 

1600  COHHON  7A1/  XHS ( 50 ,50) , YMS <50 ,50 ) 

1610  COHHON  /A2/  AN<50,10) 

1620  COHHON  /A4/  BS(25,25) 

1630  COHHON  /A5/  KT<50) 

1640  COHHON  /A7/  JFS(50) 

1650  C0HH0N/A9/  THETA(50) 

1660  COHHON  /B2/  APdO) 

1670  COHHON  /B3/  B(50) ,H(50) ,SA(50) 

1680  DIHENSION  ANU( 25, 1 ) , IP <25 ) 

1690  5  F0RHAT<23H  THE  HATRIX  IS  SINGULAR  I5,F10.5) 

1700  70  F0RHAT<36H  BEST  FIT  AT  THIS  NN  NOT  YET  REACHED//) 

1710  100  F0RHAT<///13H  INITIAL  AN < 12 ,4H. J) =,3F9. 5,21 H  A-EA  COEFFICIENT^ 

1720  1F9.5//) 

1730  104  F0RHAT<10F12.8) 

1740  107  F0RHAT<18H  NO  CONVERGENCE  AT  15) 

1750  108  F0RHAT<17H  NO  LEUIS  FORH  AT  15) 

1760  110  F0RHAT<6H  DUT=F8.5,5H  AN=11F9.5) 

1770  THETA<1)=0.0 

1  780  Pr--3. 14159265 

1  790  DO  103  L^1  ,K 

1800  H-KT<L) 

1810  B<L)-XHS<L,1 ) 

1820  H<L)=-YHS<L,M) 

1830  SUM^O.O 

1840  DO  112  J=2,M 
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T 


1850 

112 

SU«=SUM+0.5  MX«S(L,J)-XMS(L,J-1  ) ) ♦  ( YMS ( L  ,  J )  - YMS ( L  ,  J  ) ) 

1860 

SA(L)=2.*SUH 

1870 

103 

CONTINUE 

1880 

DO  54  1=1, K 

1890 

IF(JFS(I))  11,54,11 

1900 

1 1 

AN(I,2)=0.5=KB(I)-H(1)) 

1910 

BH=B(I)+H(I) 

1920 

HBB=BH**2+8.*(2. ♦SA(1)/PI+B(  ) 

1930 

IF(HBB)  63,64,64 

1940 

63 

UR1TE(6,108)  I 

1950 

fiN(I,3)=0.0 

1960 

GO  TO  54 

1970 

64 

AN<I,3)=-0.25MBH-S0RT(HBB)) 

1980 

54 

CONTINUE 

1990 

DO  10  1=1 ,K 

2000 

IF<JFS(I))  12,13,12 

2010 

1  3 

URITE(6,6)  I,  (AN<I,J),J=1.N) 

2020 

6 

F0RNAT(//15H  AN  GIVEN  AT  1=12, 4H  AN=10F9.5) 

2030 

GO  TO  10 

2040 

12 

M=KT(I ) 

2050 

THETA(M)=-1. 57079632 

2060 

HN=H-1 

2070 

INT=-1 

2080 

Durp=o.o 

2090 

DO  91  J=1 ,10 

2100 

91 

API J)=0.0 

2110 

FAC=6(I) »H(I)»2. 

2120 

IF(FAC)  86,92,86 

2130 

92 

SIGHA=-1 .0 

2140 

GO  ro  65 

2150 

36 

SIGNA=SA<I)/FAC 

2160 

65 

URirE(6,100)  I,AN(I,1 ).AN(I,2),ANlI,3) .SIGMA 

2170 

NN  =  2 

2180 

67 

NN=NN+1 

2190 

NN2=NN-2 

2200 

IF(NN-N)  63,63,21 

2210 

68 

KLK=0 

2220 

35 

KLK=KLK+1 

2230 

:F(KLK-20)  55,55,56 

2240 

56 

UR1T£(6,10/)  I 

2250 

IF(NN-N)  67,10,10 

2260 

55 

IF(INT)  1,1,2 

2270 

9 

DO  23  J=1,NN2 

2  50  0 

DO  29  jJH  .nn2 

J  !  1  0 

U  N  =  J  J  ♦ 

j}:o 

On-'.  jJ*2  ' 

.no 

SUN^O . . 

.  3*0 

DO  30  jJJ--2,«(4 

:350 

I  HI  =  IHt  1  A  ‘  J  J..I  > 

J  360 

1  H2=  '  3  .  2  .  'U  '  *  IH  1 

-  3 '  u 

I  h3  - 1  3  .  .  1  ‘  IHI 

J180 

LHC05'  IH’  ' 

.390 

12=C0S  3HJ' 

J«00 

L3=CGS( IH3 ■ 

,4  10 

b  1=  '3  1  N  (  I  H  1 

, 

S.^S’.N'  ’H2  ' 

4  3  0 

b  .S  =  S  I N  M  H  3  . 

.■Ho 

30 

'21".'  i  ■  M  2  ■  L  1  *1. 

♦  0  J »  i  1  *  b  3  »  5 .  » ’3  3  ' 

4aO 

29 

8’3  '  J  ,  JJ  1  :Sufl 

.4.'0 

.  6 

i.JNTINIJE 

2480 

DO  26  J-1 .NN2 

.’490 

U  =  J  ♦  . 

050'j 

0J  =  (  -1  .  )  *»U43) 

JSIO 

SUft-O.O 

.'520 

00  27  JJ=2,nfi 

2530 

THHfHEIAl  JJ  ' 

2540 

TH2m3. -2. 'U  HTHl 

2550 

Ct  =C0SaH1  ) 

25flO 

C2-C05UH2) 

2570 

S1=SINi  IHl  ) 

C'' 

oo 

o 

S2=SIN( TH2t 

2590 

■)  7 

SUPI=SU«  4  (XrtS'.I.JJ)  -  6(I/»CI) 

2600 

1 

(  YHS(  I ,  JJ)  -  H(  I  )*S1  )  t  (OJ'*31 

.'610 

26 

ANUU.1  i=sun 

2620 

CALL  DECani-'(NN2,25,B5.IP) 

2630 

CALL  SOLOE(nN2,25.faS.ANiJ,  IK) 

2640 

C  7 
•J  . 

DO  59  J=1  ,NN2 

2650 

59 

AN(  I,  J  +  2)=AfIU(  J,  1  ) 

2660 

1 

SUrtHO.O 

2670 

SUn2-0 .0 

2630 

DO  200  J  =  3.Ni9 

2690 

V  1  =  1  .  M  -  1  .  )  »  ♦  J 

2 '00 

V2  =1  .  +  (  -1  .  )  H  J 

2  7 1  0 

suni=surii+ui4AN(  i,j) 

3  720 

200 

SUn2'=3UI124V2tAH(  I.  J) 

.■7  30 

AN'.  1 . 1  ) -0.  jMB(  1  )>H(  I )  -SUM1  ) 

3  740 

AN(I,2)=0.5M6(I)-H(I)-SUrt2) 

Lj‘C3  *  On<uj*S1 tS 


i.Ct  -l2) 
b2J 


2,’50  CALL  ArHETA(l,NN,«t1.1BTH,N) 

2760  IF(IBTH)  21,21.4 

2770  A  DUT=0.0 

2780  DO  32  J=1,M 

2^90  SUHl-0.0 

2800  SUh2=0.0 

2810  DO  33  JJ=1  ,NN 

2820  PJ=Jj 

28  30  A8(j^^3.-2.  *F  J  )  ♦IHtTA(  J  ) 

2840  SUfll  =SUM1  +AN(1 ,  JJ)  *COS(ARG) 

2850  33  iUrt2-SUf12tAN(I,JJ)»SIN(ARG) 

2860  32  DUT  =  f'UTMX(1S(I,  J)-SUril  )  +  »2+(  rrtSl  1 ,  J) -bUrt2)  ♦» 

2870  TUD=DUT-DUTP 

2880  IFcINT)  78.78.29 

2890  78  1NT=1 

2900  URITEU.llO)  OUT  .  (ANd  ,J)  ,  J=1  ,NN) 

2910  DO  3  J=1 ,NN 

2920  3  AP(J):AN(I.J) 

2930  DUTP^DUT 

2940  GO  70  67 

2950  79  IF(TUD)  88,86,87 

2960  87  DO  89  J-l,N/9 

J97C  89  AN(1 , J)^AP(J) 

2980  URI  711(6,90)  tiU7 

:'?90  90  F0RMA1(25H  FIT  IS  GOING  BAD  DU7^F7.5) 

30o0  GO  70  67 

3010  88  IF(ABS(TUD)-70L)  69,69,66 

3020  69  URI7E(6,1 10)  DU7 , < AN ( I , J ) , J= 1 , NN ) 

5030  DO  77  J=1 .NN 

2040  77  AP( J)=AN( I, J) 

3050  DU7P^DIJ7 

3060  GO  70  6/ 

5070  66  DUTP^DUT 

3080  URIIE(6,110)  DU7 , (AN( I , J) , J-1 .NN) 

2090  DO  76  J=1  ,NN 

2100  76  AP( J)=AN(I.J) 

3110  GO  70  35 

3120  21  URI71i(8,l  I  1  )  v  AN  ( I ,  J ) ,  J=  1  .  N  ) 

3130  111  FQRNA7(7F10.5) 

3140  10  C0N7INUE 

3150  50  RE7URN 

3160  END 

N 
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3170 

SUBROUTINE  ATHETA( I,NN,HM,IBTH,N) 

3180 

COMMON  /A1/  XMS(50,50),YMS(50,50) 

3190 

COMMON  /A2/  AN(50,10) 

3200 

COMMON  /A9/  THErA(50) 

3210 

IBTH=1 

3220 

n=MM+1 

3230 

KMN=1000 

32^0 

OME1=0. 0174533 

3250 

DO  11  J=2,NM 

3260 

THETA< J)  =  THETA( J-1  ) 

3270 

ONEG  =  THETA( J-1  ) 

5280 

DTHE=(0MEG-0ME1)710. 

3290 

JJJ=-1 

3300 

KKK  =  1 

j3I0 

LLL=  1 

i32u 

23 

sum  =0.0 

-'3  30 

SUfl2=0.0 

334U 

KKK  =  KKi;-H 

J350 

BO  15  L=1  ,NN 

3  360 

PN'=L 

3370 

ARG=(3,-2.*PN)  t=THErA(  J) 

3380 

SUMI=SUm  +AN(1,L)»C0S<ARG) 

3390 

15 

SUN2  =  SUM2'^AN(I,L)>SIN(ARG) 

3400 

DU=(XnS(  I,J)-SUH1  )^»=»2+(YrtS(I.  J)-SUM2r*f 

3410 

IF(JJJ)  12,13,14 

3420 

1  2 

DU1=DU 

j  4  30 

JJJ  =  0 

3440 

GO  TO  16 

3  450 

13 

IF(DU-[iUl)  17,18,13 

3  460 

18 

DU1=0U 

3470 

GO  TO  16 

3480 

1/ 

JJJ=1 

3490 

DU1=BU 

3500 

GO  TO  16 

3510 

14 

IF  (DU-DUD  20,19.19 

3520 

20 

DUt=BU 

3530 

1>6 

IF(KKK-KrtM)  21,21,37 

5540 

21 

THETA(  JDTHETAI  J)+D1HE 

5550 

GO  TO  23 

356  0 

37 

I£irH  =  -t 

3570 

URITE(6.4)  I.J 

3580 

4 

F0RMAT(16H  BAB  THETA  AT  D12.3H  J=12/7) 

3590 

GO  TO  10 

■'.600 

19 

IF(LLL-3)  24,25.25 

56'0 

24 

THErA(,J)  =rHErA(J)  -2.  HirHE 

362  0 

BTHE=BrHE710. 

3630 

JJJ=-t 

3640 

KKK:=1 

3  650 

LLL=LLL+1 

366>J 

GO  TO  23 

36  0 

J.  J 

THETA' J) =THETA(J)-DTHE 

5680 

OMEDOflEG 

36'’0 

1  1 

EONIINUE 

'.’00 

10 

RETURN 

3710 

ENB  62 

62 


3720 

SUBROUTINE  POLY(KB,KE,N,KPK> 

3730 

COHHON  /A2/  AN<SO,tO) 

3740 

COHHON  /A3/  BN(25,10) 

3750 

COHHON  /A47  BS(25,25) 

3760 

COHHON  /A6/  IFS(50) 

3770 

COHHON  /B1/  S(50) 

3780 

COHHON  /B3/  B(50),H(50),SA(50) 

3790 

DIHENSION  IP(25),UE(25) 

3800 

INT  =  0 

3310 

DO  12  I-^KB.KE 

3820 

I3  =  I1-S(I) 

3830 

00  TO  (12, 13, 13, 28, 23, 45), IS 

3840 

28 

INT^INT+2 

3850 

GO  rO  12 

3860 

13 

INf=INI+1 

3870 

GO  TO  I2 

3880 

45 

INT=]NT+3 

3890 

12 

CONTINUE 

3900 

HP=Kr-'KvINT 

3910 

KPKI  =KPKH 

3920 

URnE(6,80)  HP.KPK,INT 

3930 

80 

F0RHAT(//4H  rtP=I5,5H  KPK-I5,5H 

3940 

DO  27  1  =  1  , HP 

3950 

DO  27  J=1,HP 

3960 

11 
i.  / 

BS(1,J 1=0.0 

3970 

BO  1  ri  =  i  ,N 

3980 

DU  1  I=2.KPK 

3990 

jr=i-i 

4000 

SUri=0.0 

4010 

DO  ?  J=kB,KE 

4020 

IS--  IFS(  J) 

4030 

GO  TO  13, 2, 3, 2, 3, 2), IS 

4040 

3 

SUM=SUM+(S( J)**JI) fANlJ.II) 

4050 

CONTINUE 

4060 

1 

BN(I,II)=SUH 

4070 

DO  7  11  =  1  ,N 

4080 

BN(1  ,ri)=o.o 

4090 

DO  7  J=KB,KE 

4100 

1S=II-S(  J) 

4110 

GO  TO  (5,7,5,7.5,71 .IS 

4120 

5 

BN(1 ,II)=BN(1 ,II)+AN(J,II) 

4130 

'f 

CONTINUE 

4140 

no  4  II-=1  ,N 

4150 

l  =  KPi:i 

4160 

DO  4  J=KB,KE 

63 


1S=IFS<J) 

GO  TO  (4, 6, 46, 29, 47, 48), IS 
29  BN(I,II)=AN( J,II) 

BN(I+1 ,II)=0.0 
1  =  1  +  2 
GO  TO  4 

46  BN(I,II)=0.0 
I  =  I  +  t 

GO  TO  4 

47  BN(I,i:[)=0.0 
BN(I  +  1  ,n)=0.0 
1  =  1  +  2 

GO  TO  4 

48  BN(I.II)=AN(J,II) 

1  =  1  +  1 

GO  TO  47 

6  BN<I,II)=AN(J,II) 

1  =  1  +  1 

4  CONTINUE 
URIT£(6,71 ) 

BO  70  11  =  1  ,N 

70  URITE<6.72)  (BN(I,II),I=1.rtP) 

71  FORMAT  (//19H  THE  SECTORS  BN  / 

72  FORMAT  (12F10.5) 

DO  8  I=1.KPK 

DO  8  J=1.KPK 
8Uf1=0.0 
IJ=I+J-2 
DO  9  M=I<6,KE 
IS  =  IF5((1) 

GO  fO  (10.9,10,9.10,9) .IS 

10  IF(IJ)  11  .14.11 

14  IF(S(M))  11,15,11 

15  SUM=SUI1+1  .0 
GO  TO  9 

11  !;UM=3Uf1+S(M)  +  *IJ 
9  CONTINUE 

8  B3(I,J1=SUM 
L=KPK1 

DO  30  J=KB,KE 
r3=ii-S(  J) 

GO  ro  <30,31 ,49,32,50,51 ) ,15 
31  BSd  ,L)  =  1  .0 
L=L  +  1 
GO  TO  30 


4620 

49 

BSd  ,L)=0.0 

4630 

L=L+1 

4440 

GO  TO  30 

4650 

50 

BS(1,L)=0.0 

4660 

BS<1,L+1 )=0.0 

4670 

L=L+2 

4680 

GO  TO  30 

4690 

51 

BSd  ,L)  =  1 .0 

4700 

L=L+1 

4710 

GO  TO  50 

4720 

32 

BS<1  .D^I.O 

4730 

BSd,L+1  )=0.0 

4740 

l=L*2 

4750 

30 

CONTINUE 

4760 

DO  16  I  =  2,KF'K 

4770 

L=KPK1 

4780 

11=1-1 

4790 

DO  17  J=KB,KE 

4800 

IS=IFS(J) 

4810 

GO  TO  (17,18,52,33,: 

4820 

18 

BS(I,L)=S<J)»»I1 

4830 

L=L  +  1 

4840 

GO  TO  17 

4850 

52 

12=11-1 

4860 

IF(I2)  53,54,53 

4870 

54 

BS(I,L)=1 .0 

4380 

L--L  +  1 

4890 

GO  TO  17 

4900 

53 

AI  =  I1 

4910 

BS(I,L;=(4I»S(J)**I2 

4920 

L  =  L  +  1 

4930 

GO  TO  17 

4940 

55 

12=11-1 

4950 

13=11-2 

4960 

IF(I3)  56,57,58 

4970 

56 

BS(I,L)=1 .0 

4980 

B3(I,LM  )=0.0 

4990 

L=L+2 

5000 

GO  TO  17 

5010 

57 

AI1  =  I1 

5020 

BSd.L)  =  AI1»S(J) 

5030 

BSd.LH  )=2.0 

5040 

L  =  L  +  2 

5050 

GU  TO  17 

5060 

58 

AI1  =  11 

65 


5070 

AI2=I2 

5080 

BS(I,L)=AI1*S(J)**I2 

5090 

BS(I,L  +  1  )-AI1*AI2*SU)  »*I3 

5100 

L=L  +  2 

5110 

GO  TO  17 

5120 

59 

BS(I,L)=S(J)**I1 

5130 

L  =  L  +  1 

5M0 

GO  TO  55 

5150 

33 

BS(I,L)=3(J)*H1 

5160 

12=11-1 

5170 

II-(I2>  34,35,34 

5180 

35 

BS(  I  ,L  H )  =  1 ,0 

5190 

GO  TO  36 

5200 

34 

AI  =  I1 

5210 

BS<I  ,L+1  )=AI<'S(  J)»*I2 

5220 

36 

L  =  L  +  2 

5230 

1  7 

CONTINUE 

5240 

16 

CONTINUE 

5250 

L=KPK1 

5260 

00  19  J=KB,KE 

5270 

IS=ir-S(J) 

5  280 

GO  TO  (19, 20, 60, 37. 62, 65). IS 

5290 

20 

DO  21  1  =  2, KPK 

5300 

U  =  l-1 

5310 

21 

BS(L,I  )=b(J)».Hl 

5320 

L  =  L  +  1 

5330 

GO  TO  19 

j340 

60 

ES(L,2)=1 .0 

5350 

DO  61  1  =  3, KPK 

5360 

AI=I-1 

5370 

12=1-2 

5380 

61 

BS(L,I)=AItS(  J1*M2 

5390 

L  =  L  +  1 

5400 

GO  TO  19 

5410 

6.2 

BS(L,2)=1 .0 

5420 

BS(LH  .2,1  =0.0 

5430 

DO  63  1=3. KPK 

5440 

AI=I-1 

5450 

12=1-2 

5460 

63 

BS(L,I)=AI  »S(  J)*t:12 

5  470 

L1=L+1 

5480 

BS(L1 ,3)=2.0 

5490 

DO  64  I  =4, KPK 

550C 

A11=i-1 

5510 

AI2=  [  -2 

66 


5520  13=1-3 

5530  64  BS(L1,I)=A11*A12*S(J)*»I3 

5540  L=L+2 

5550  GO  TO  19 

5560  65  DO  66  1=2, KPK 

5570  11=1-1 

5580  66  BS<L,I)=S(J)»»I1 

5590  L=L+1 

5400  GO  TO  62 

5610  37  DO  44  1=2, KPK 


5620  11=1-1 

5630  BS(L,I)=S(J)*»II 

5640  12=11-1 

5650  1F(I2)  38,39,33 

5640  39  BS(L+1 ,I)=1.0 

5670  GO  TO  44 

5680  33  AI=I1 

5690  BS(LH,I)=AI*S<J)**I2 

5700  44  CONTINUE 

5710  40  L=I.*2 

5720  19  CONTINUE 

5730  L=KPK1 

5740  DO  41  J=Ke,KE 

5750  IS=IFS<J) 

57o0  GO  TO  <41 .42,67,43,68,69) , IS 

5770  43  BS<L,1 )  =  l  .0 

5780  BS(LH,1)=0.0 

5790  L=L+2 

5800  GO  TO  41 

5810  67  BS<L,1 )=0.0 

5620  L=L+1 

5830  GO  TO  41 

5840  68  B3<L, 1 1=0.0 

5850  D3(L+1 ,1 J=0,0 

5860  L=L+2 

5870  GO  TO  41 

5880  69  BS<L,1)=1.0 

5890  L=L+1 

5900  GO  TO  68 

5910  42  BSlL.I  )  =  1 .0 

5920  L=L+1 

5930  41  CONTINUE 

5940  UI<I  IIi(6.73) 

5950  73  FORHAT  (//18H  THE  MATRIX 

59o0  DO  74  J=I.HP 


B  3  /  / ) 


67 


5970 

74 

WRITE  (6,72)  (BS(J,I),I=1.rtP) 

5980 

CALL  DEC0MP(hP,25,BS,IP) 

5990 

DO  23  1=1 ,N 

6000 

DO  24  J=1 ,rtP 

6010 

9E(J)=BN( J,I) 

6020 

24 

CONTINUE 

6030 

CALL  SOLyE(HP,25,BS.V£,IP) 

6040 

DO  25  J=1,r1P 

6050 

»N(  J,I)=VEU) 

6060 

25 

CONTINUE 

6  0  20 

23 

CONTINUE 

oOBO 

26 

RETURN 

o090 

END 

68 


6100 

SUBROUTINE  OUTPUT(KB,KE,N,KPK,BL) 

6110 

COHHON  /A1/  X«S(50,50),YMS(50,50) 

6120 

COHHON  /A2/  AN<50,10) 

6130 

COHHON  7A3/  BN(25,10) 

6140 

COHHON  /A5/  KT(50) 

6150 

COHHON  /A8/  TITLE(12) 

6160 

COHHON  /B1/  3(50) 

6170 

COHHON  /B3/  B(50),H(50).SA(50) 

6180 

IF(KPK.LE.1 )  GO  TO  13 

6190 

URITE(6,70) 

6200 

70 

l-0RHAT(//3OH  THE  POLYNOHIAL  COEFFICIENTS//) 

6210 

DO  71  J=1,N 

6220 

!F(KPK-10)  72,72.73 

6230 

/  ^ 

gRITE<6,74)  J,  (BN(I,J),I=1,KPK) 

6240 

GO  TO  71 

6250 

73 

URITE(6,74)  J,  lBN<I,J),I  =  1 ,10) 

6260 

URITE(6,75)  (BN(I,J),IM1,KPK) 

6270 

71 

CONTINUE 

6280 

74 

FORHAT  (4H  J  =,  12,  10F10.5) 

6290 

75 

FORHATdOH  ,10F10.5) 

6300 

1 1 1 

F0RHAT(7F10.5) 

6310 

DO  80  1=1, KE 

6320 

80 

URITE(8,111)  (AN(I,J),J=1,H) 

6330 

13 

DO  1  I=KB.KE 

6340 

1F(KPK.LE.1 )  GO  TO  11 

6350 

ST=S(I) 

6360 

URITE(6.7)  I, SI 

6370 

■p 

F0RHAT(//26H  X 

Y,12H 

6380 

1F6.4/) 

6390 

DO  2  J  =  1  ,N 

6400 

SUH=0.0 

6410 

DO  3  11=2, KPK 

6420 

11=11-1 

6430 

3 

SUH=SUf1+BN(II,J)»ST*<I1 

6440 

2 

AN(I.J)=3UM+BN(1  ,J) 

6450 

1 1 

TH=0. 03491 

6460 

HO  4  L=1 ,46 

6470 

X=0.0 

6480 

Y=0.0 

6490 

TH=[H-0. 03491 

6500 

DO  5  J=1,N 

6510 

AJ=3-2f J 

6520 

X=X+AN<I, J)*COS<AJ*TH) 

6530 

c 

J 

Y=Y»AN(I,J)*SIN(AJ*TH) 

6540 

4 

URITE(6.6)  X.Y 

S(12, 


69 


6550 

6 

K0RHAT(F20.5,F10.5> 

6560 

1 

COHT INUE 

65/0 

IFIKPK.UF .1 )  GO  TO  12 

.^580 

RETURN 

65V0 

12 

URirF.(6,8) 

<5600 

a 

FORMAT <///17H 

6610 

DO  9  I=KB.KE 

6620 

9 

URITE<6,10)  (ANn,J),J 

6630 

10 

FORMAT(F20.5,9Ft0.5) 

6635 

URITE<9,400)  M.KFK.BL 

6640 

DO  76  J=1 ,N 

6650 

26 

URlfEI'V.lin  (BN(I,J), 

6660 

RETURN 

665 

400 

10r'iMAn2I5.1F10.5) 

66/0 

END 

=  1  ,N) 

I=I ,KPK) 


70 


6680  SUBROUTINE  DEC0MP(N,NDIN,R,1P) 

6690 

6700  C  SUBROUTINE  DECONP  GAUSSIAN  REDUCTION  OF  A  TO  TRIANGULAR  FORrt 
6710 

6720  C  N  NUHBER  OF  NON  ZERO  ROUS  IN  A 

6730  C  NDIH  DIMENSION  OF  A 

6740  C  A  MATRIX  TO  BE  REDUCED 

6750  C  IP  NUMBER  OF  ROU  BEING  PIUIOTED  UIIH  K  ROU 

6  760 

6770  DIMENSION  A(NDIM,NDIN) ,IP(NDIM) 

6780  IP(N)=t 

6790  Du  6  K=1,N 

6800  IF(K.EQ.N)  GO  TO  5 

6810  KP1=K+1 

..820  I1=K 

o830  DO  1  I=KP1,N 

6840  IF(ABS(A(I.K)).GT.ABS(A(M.K)))  M-I 

6850  1  CONTINUE 

6860  IP(K)=f1 

6870  IKM.NE.K)  IP(N)=-IP(N) 

6880  T=fi(M,K) 

o890  A(M,K)=A(K,K) 

6900  rt(K,IO=T 

6910  IFd.EQ.O.)  GO  10  5 

o920  DO  2  I=KPI,N 

6930  2  A(I.K)=-A(I,K)/T 

o940  DO  4  J=KP1  ,N 

6950  r=AlM,J) 

6960  A(M.J)-A(K, J) 

6970  A(K,J)-T 

6980  IFIT.EQ.O.)  fjO  10  4 

6990  DO  3  I=KP1,N 

.'000  3  A(I,J)^A(I,J)+AU,K)M 

7010  4  CONTINUE 

7020  5  IF(A(K,K).EC).0.>  IP(N)=0 

.’030  6  CONTINUE 

7040  RETURN 

7050  END 


7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7  220 
7230 
7240 
7250 
7260 
7270 


SUBROUTINE  SOLUE<N,NDIN,A,B, IP) 

DIMENSION  A(NDIN,NDIH),B<NDIN),1P(ND1H) 

IFIN.EQ.I  )  GO  TO  9 

NM1=N-1 

DO  7  K=1,NN1 

KP1*K+1 

N=1P(K) 

T=B(M) 

B<H)=B<K) 

B(K)=T 

DO  7  I=KP1,N 
7  B<I)=B(I)+A(I,K)*r 
DO  8  KB=1 .NH1 
KM1=N-KB 
K=KHU1 

B(K)=B(K)/A(K,K) 

T=-B(K) 

DO  8  1=1 ,Krtl 
a  B(I)=B(I)  +A(I,K)»T 
9  B(  1  )=B(1  )7An  ,  1  ) 

RETURN 

END 


72 


#FILE  (CHXDTBLIS  ON  OTNSRDC 


100 

FILE 

5(KIND=RE(10TE,MAXRECSIZ£=22) 

110 

FILE 

6(KlND=PRINTER,MAXRECSrZE=132) 

120 

FILE 

8(TITLE  =  '‘BNSAL",KIND=flISK,FILETYPE=7) 

1  30 

FILE 

9(KIND=REN0TE,hAXRECSlZE=22) 

MO 

FILE 

10(TITLE="TBLINP“,KIND=D1SK,FILETYPE=7) 

150 

FILE 

1 1  (HTLE  =  "TBLSAVE‘‘,KIMD=DISK,PROTECTION=SAOE.MaXRECSIZE 

1  60 

♦RESET  FREE 

170 

COHMON  /  /TITLE112) 

180 

COhnON  /A/  rTH(50),HB(50).THnB(50) .BETEK'oO) .DTA^SO). 

190 

1  RS(50)  ,RTH(50)  ,R£i(50)  ,CFF'(50),XX(50)  ,YY(50) 

jOO 

COMMON  /B2/  THNB(50),DTHS(50),DGS(50),DTNS(50).IJSR(50) 

210 

COMMON  /U/AN(10),ANP(10),ANPP(10).CN(10),CNP(10).GN( 10) 

220 

1PAC 

230 

COMMON  /G/BN(25,10),UK(50),DK(50),TM(50),TMO 

240 

COMMON  /  /TITL(3) 

250 

COMMON  /SAVE/GRU(50) 

260 

DO  120  1=1,25 

270 

DO  120  J=1 ,10 

280 

120 

fiNn[,J)=0.0 

290 

READIB,!)  ( IITLE<J),J=1.12) 

300 

URITEl9,n  (TITLE(J),J=1,12) 

no 

READ(8,405)N,KPK 

320 

WRITE  19,405  )N,KPK 

330 

DO  13  .n,N 

140 

R£AD<8.3  )  (BN(:i,J),I  =  1  ,KPK) 

350 

gRFE(9,3)  (  BN(I,J),1  =  1,KPK) 

360 

U 

CONTINUE 

370 

URITE(9,414) 

380 

gRITE(9,415) 

390 

URnE(9.4l6) 

400 

URnE(9,417) 

410 

URITE(9.418:) 

120 

RLAD15.412)  NINPT 

430 

GOTO  (301 .302,303)  NINPT 

44U 

301 

WRITE(9,419) 

450 

Slop 

460 

302 

WRITE (9. 400) 

470 

RI-:AD(5,401  )  00 

180 

WRI IE  tv, 401)  UQ 

490 

WRITE (9,402) 

'jOO 

READ ''5,401)  BL 

2. 1  0 

WRI rE(9.401 )  BL 

'=■.20 

WRITE (9,409) 

^30 

R£AD(5,405)  NSTAT 

540 

URIfE(9.405)  NSTAT 

73 


550  UF<ITE(9,<10j 

560  RtOD(5,3)  S1,S2 

570  URir£(9,3)  S1,S2 

580  URITE(9,404) 

590  R£AD(5,405)  NTH 

600  URITE(9,405)  NTH 

610  URIfE(9,411) 

620  RliAD(5,401)  (  F  [H  (1 ) .  I  =  1  .NTH ) 

630  URITE(9,40n  (  T  THF I ) ,  1  =  1  .NTH) 

640  URITE(9.403) 

650  DO  200  IN=1,NTH 

660  READ(5  .-406)  HD  ( IN  )  .THhB  ( IN )  ,BETB  ( IN ) 

670  URITE(9.406)  HB ( IN ) , THHB( IN) .BETB ( IN) 

680  200  CONTINUE 

690  URITE(9.407) 

700  RliAD(5.6)  RE 

710  URITE(9,6)  RE 

720  URI rE( 11 ,401 )  UG 

730  URIIEdl  ,401  )  BL 

740  URIIEdl  ,405)  NSIAI 

750  URITEd  1,3)  SI  ,S2 

■'60  URIIEdl, 405)  NTH 

770  URIT£d1,40l)  (TTH(I).I  =  )  .NTH) 

780  HO  201  IN=1,NTH 

'90  URIIEdl, 406)  Hti(INl.lHrlB(IN).BETB(IN) 

HOO  201  CONTINUE 

510  URIIEdl  ,6)  RE 

820  GO  10  304 

330  303  READd0,40l  )  UO 

840  READd0,401  )  BL 

850  REAIidO.4051  NSIAI 

860  READ d 0,3)  SI, 32 

87y  READdO.4051  N  IH 

880  RE  AD  do.  401)  (  T  IH  d  ' .  I  =  1  ,  N  IH ) 

890  HO  202  IN=1  .NIH 

VOO  READl  10,406)  HB  ( I N  ).  THMBdN  ),  BETB  dN  i 

710  202  CONTINUE 

)  2  0  R  E  A  D  M  0 , 6  *  KE 

’  i  j  304  URIIEi6,1iO) 

■/40  Uld  lEd.ll'j  I 

VV)  uid  IE  (6  ,  1  1  I  IN  .lit;  .  BL 

760  UMTE(6.113)  NIH.fdTAT 

770  URiIH6,12)  S1,S2 

d','  DO  121  .I  d  ,N 

790  121  URI  If.  6. 1  1  2  )  (BNd  ,  J)  .  1  =  1  .KRt  ) 


1000  DO  21  1=1 ,KPK 

1010  DO  21  J=1.N 

1020  21  BN(I.J)=BL^*IlN(l,J) 

1030  DO  50  1  =  1  .NIH 

1040  DTA(1)=0.0 

1050  50  CONTINUE 

1  060  DO  14  :[  =  t.fnH 

1  0?0  G  =  1  .lj35M  UTD(I)-0.;')»^M-2.715)  >+3.3 

1  OHO  E  =  - 1 G  +  HB  ( I ) )  +  (2. /  (HB  ( I  1 )  + 1  . )  t  ( HB ( I )  +2 . ) )  ) 

1090  14  THNB(I)=THrtB(I)*E*BETB(I) 

1100  20  URITE(6,8l 

1110  URITE(6.1)  (rirLE(J),J=t.l2) 

1120  RN=RE/2. 

1130  N1=N3TAT+1 

1140  DS=(S2-S 1 )/NSTAT 

1150  ST=S1-DS 

1160  CALL  GLUG(N.KPK) 

1170  DO  7  JJ=1 ,N1 

1180  ST=ST+DS 

1190  call  UGH(ST,N.KPK.FAC.|-ACP.IENIiS.> 

1200  URITE(6,27)  JJ.Si 

1210  CALL  A(3H(l-AC,FACP,N.NTH,JJ,DS,RN.Sn 

1220  7  CONTINUE 

1230  100  CONTTNUf 

1  240  Cl  OP 

1  250  5',>0  URIIt:('>’.4r3) 

!2  60  6  I  UR 

i2.^0  I  R'0krtAT(12A6l 

!  280  2  F0ftfiAT(21l0,2F10.5) 

1  290  3  F0Rf1AT(7r  10.51) 

I  300  5  FORMAT(2I10,2F10.5) 

1310  6  FORMAKFOO.  1  ) 

1320  3  FuKrtAK  IHt  ) 

1330  9  FUKrAr(7F10.8) 

1340  1  2  FijRMAT(5H  81=110. '5. 4H  52=1-10.5) 

!35u  27  FORMAK/ /12H  S  a  3 ,2H  )  =F8 . 4  ) 

1 360  1 10  F0RMAT(/7H  INPUT/) 

13’0  111  F0RNAT<4H  N=I3,5H  KPi;=I3.4H  BL=F10.5) 

1  380  1  1  2  FORflAT  ( 7  L  1  2 . 5 ,5X  ) ) 

1  3  90  115  FQRn, =,1(413  NrH^I5,7H  NSTAI=I5) 

I  3fi  FORflATdHI  ) 

141-  4  00  I- OKNA 112013  U0=  IF  10.5  ) 

i4’'i  401  FORrtATdFIO.S) 

1430  402  F0RI1Ar(20H  BL=  1F10.5  ) 

1440  4  0  3  F0R11AT(38H  HB  THMB  BCTB  31d0.5 
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1  ASO 

404 

F0RHAT<15H  HTH= 

1  15  ) 

1  460 

405 

F0RNAT(2I5) 

1  4‘’0 

406 

l-0RMAr(3F10.5) 

1  A  6  0 

AO:’ 

F0RHAT(24H  RE= 

1F20. 1 

) 

1  490 

408 

F0RMAT(4H  RE=^) 

1  500 

409 

FQl<f1Ar(24H  NSrAT  = 

1 15 

) 

1510 

410 

F0RMAT(30H  SI 

52 

7F10.5 

1520 

41  1 

F0RMAT(25H  TTH= 

1F10.5 

) 

1  55‘J 

412 

FORMATdII  ) 

I  540 

41  5 

FORMAT  d'SH  END  OF 

FILE  REACHED 

) 

1  550 

414 

F0R«AT(38H  NINPT 

DENOTES  THE  TTFE 

UP  INPUT 

1560 

4  1  5 

FliRMAT(23H  NINFT=: 

1  CARD  DATA 

) 

1  5^0 

416 

F0RMATv23H 

2  REMOTE 

) 

1  5:A0 

41  ^ 

F0RMAH23H 

i  STORED  DA  1  A 

1 

i  5'^i.' 

4  1  8 

FORMAK.  /  15H  NINPT  111 

) 

•J'V  FuKnATt43H  PRO'.'Ii;ii:  READ  SfATErtENTS  FOR  CARDS  Al  ,501 
1  .’I  END 


76 


bUBROUriNE  Al)H(FAC,FhlCI'.N,NTH.  J ),  IiS.KN.b  I  < 

CQMdON  /A  /  nH(50)  .HB(50) .  iHrlfctSO)  .  E  F  A  ' '50'  . 

,  Rb  ( 50 ) ,  RTH  ( 50 ) .  RIu  50 ) .  CF  E  ■:  5'J ) ,  >  *  '.v  i  .  n  ( ' 

COMMON  /B2/  rHNE(50),liTHSi'-Vjy  .Ijb  j(5'j  '  .IiFNS'.','.' 

COMMON  /U/AN(  (0  '  .ANf-(  10  I  .AMF’K  10  )  ,CN^  I'J)  lu  )  ,&NM' 

1  FAl 

I'UMMON  /SAOE/GRUtSO) 

HIMENSIUi'l  I  I-' (50)  .HH2(50)  ,CF;K  I  r5'j )  .LKK.:',  5'J  ^ 

[I  I  ME  NS  I  ON  FFS(50),PHI  (50)  .  (HH(5'J  ■ 

[liMENSION  RAD(50) 

D1  MENS. [ON  CFL(50  I  ,CFUL(’5U)  .CFBL(50  )  ,CbL  -b'.'  ’  ,F  S!n'  5 
DO  1  1  =  1  .NTH 
IH=TTH( I ) 

T.  =U.O 

y 

SUi-l  1-0.0 

bUM2=0.0 

SUM3=0.0 

SUM4^0.0 

SUM5'=0.0 

SUM6=0.0 

bUM;=o.o 

blJM8=0.0 

3UM9=0.0 

SUM  1 0  =  0.0 

'.lunl  1  ='J.O 

SUii12=0.0 

SUrl1  3=0.0 

SUHI4=0.0 

SU«15=0.0 

SUM17='J.O 

bUrt18=0.0 

SUrll9=0.0 

bUf120  =  0.0 

sun: 1=0.0 
no  23  J=I,N 
C1  =  2tj 
1:4  =3.  -Cl 
cs4=(:o;s(C4tTH) 

IN(C4  HH  ) 

■-SUM1  -C4*AN(  J)*SS4 
iu'i2  =  SUl12  +  C4  +  AN(  J)*Cb4 
5UM3  =  SU(13  +  ANP(J)'*CS4 
bUM4  =  3Uri4  +  ANF'(.J)'»'3S4 
SlJMj  =  bUM'-j  (L4  n2)  tAN(  J  )  *C34 
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jO’O 

':3Un6  =  SUMi  -  (C4*  t  2  J  f  ftN  U  )  t'SG4 

7u80 

SUfl7^3Un7-C4fANP(J)'*SS4 

7090 

SUrt8  =  SUM8+L4'»ANP(  J)'*CS4 

7100 

SUM19=:SUM19  +  ANF'P(  J  M'CS'I 

7110 

SUf120  =  SUtl7O<-ANf'F'(J)  *SS4 

7120 

\=a+AN( J)>CS4 

7130 

23 

1=Y(.aN(  J)*SS4 

7140 

[iG  2'j  J-2,N 

7  1  0 

(:7  =  7iJ  2 

714''' 

GS2'^GlNa2trH) 

7'  '0 

CS2  =  CQSiL72i7|H> 

2180 

SUrt9  =  SUrt9  +  L'N<  J)»SS2 

7190 

SUM10=SUni'0>CN(JjvCS2 

7200 

SUM1 1  =bun  1 1  n:2+CN(  j)+t:o2 

7210 

SUM12'''SUrt12-(;2vLN(J)  4SS2 

7220 

SUhl  3  =  SUi'il  3-CNP(  J)'*'CS2/C2 

7230 

SUfi14  =  SUrtt4-LN(J)tCS2/C2 

7240 

52 

S  Uri  1  5  -  Sum  1  Ij-Ci'IF'F  ( J  .1  't'CS7  /  C2 

7250 

SLin2l=SUn21+GN':J)'»SS2 

7  2o0 

sum  7  =  SU(1i  :7fCNF'(  J)  fSS2 

7270 

25 

SUM18=8UM18+CNF'(J)  *'052 

2280 

SUmO^CN'  1  )+3UiM10 

2290 

sum  3  =SUm3  +  FAC+1 .0 

7300 

SUN31 -3UM13+3Uni3 

7310 

SUM14=3Uf1l4+PAC 

2320 

3Ur1l3'=SUr1ir3+CNr-'(  1  ) 

.330 

t)E  =  SUH1  t*2+SUh24'»2 

2340 

131 

riE2  =  DE^*2 

7350 

HE-(SUM5't'3UI12-SUfl6»SUM1  )*42 

2360 

U=(3UM9*SUM1+SiJrt10'*'SUrt2)/DE 

2370 

0'=(SUH9*suM2-sumo+sum  )/iii: 

7360 

U-Sum3-U't.SUM3-0"SUf14-1.0 

.:'390 

[iN^SUm  ^SUM7^SUM2■^SUrt8 

■400 

US=  (  +bum  8*  sun:  fSUnlOfSUMS+bUm  7*sum  t  SUM9iSUii7  ) , 

4  1  j 

'jS^US-2.  f[iN*U/DE 

7  4  70 

0S=  (  -SLil'il  d<  bUm  -sum  Of  SUrt7+SU(11  7  |■■3U^12+3lJM■91bUMF) ) , 

’  4  3  V 

0&  =  VS-2.f  IlfM'V/OE 

■  4  4  0 

US^FACF'  +  SUm  '5  -  (lJ:5t3UM3  fU  tsum  9  t'OS  i 'oUi-i4>0*3U(120  ' 

■'4  50 

DTDS<’.0t'SlJM21  L'E 

7  4  6  0 

On  =  5iJM  1  t'SiJMS  I'jllrtlJfSUhb 

-i  '  '7 

UTH=  '  SUni'0fSUrt6  U5Um2fSUrt2+SUm  HSijMlfSUMVfSUnS  > 

::m8o 

UTH  =  UTH-2.  i[fMtU,-''DE 

.■'  4  '5  IJ 

OTH=  i  -SUM12*SIJM  1  bLli-11')'tSlJii5+SUm  1tSUf12^:ilJii'5t':,iJrl7 

yrn^v'Th- 

u :  H  ^ :  iin  K’  -I  iTH  I  sun3  ■  ijtbiJn7-iv'TH:roUrii  ■  siirtB 


(5t=DE»*( -0.5) 

>'j30  HX  =  SU«3^DTDS:»SUM1 

.540  HY  =  SUH4  +  DTDS:*SUrt2 

2550  PHia)=SUhl4 

2560  RAIi(I)  =  (SUf15»SU«24*2-SUrt6»SUrt1*SUH2):M2+(SUM6^SUM1  ♦^t2-SUrl'j 

2570  1  k3U«USU«2)**2 

2580  RAD<  I  )=SQRT(RAIi(I) ) 

25  90  RA[i(  I  )-DI22/KA[i<I  ) 

:400  USb  =U  t  +  2  t-0*  k2  +  2.0i‘U+1  .0 

'olO  F'  =  -USS  +  1.0 

2620  F'N^G  I  MUfUTH+OtOTH+UTH) 

2630  CK2-PN/U3S 

’j40  5  3  |■'S==U♦Ub♦'0 '^VS * TDS*^PN/Gl 

'650  PPS(1)=P3/USS 

2660  135  IJSS- buR T  ( USS ) 

267^  200  rHH<I)=rH 

26bO  F=-3tJil9/SUh13 

2690  F3=-3UM17/SUM13+SUM19MFACP+SUrtr3)/SUMJ1 

2700  fT  =  -SUfin/SUMt3  +  SUr19.r3Urt17/SUfl.31 

'  10  GX  =  F*SUfi3  +  3Ui1t 

2720  OT-F  t:SUh4  +  SUM2 

27  30  GG  =GX*GX  t’G  Y-tGY^F  bl- 

2740  HH^aX^HX+HY^HY+l .0 

2  50  HH=3QRT(HH) 

2760  GXP^I-*  (3Urtl9:tf  +SIJ?1.34:FS+SUM7)+F^fSUi17  +  3Ui'1.3*FT  ^3Lllrj 

■  GYP  =  F*(SU«20*h  ♦SU(l4*FSfSUn3)+F^»SUh8  +  SU(l4:t:Fr  +  3Urt6 

"90  6ZP=F»FS+FT 

'  ’90  RG=(GX  +  GXP9GT  9GtP+Ft:GZP)/GG 

doO  CK1-  ( HX  t; ( GXP"iiX:fR(3)  t-HY  >  1 6  i P- G I » RG  )  9 ( GZP  -FtRij  i  j  /  (GG-t  HH  i 

■RK;  X6>:r)  =  x 

.32.'  T  r  ( p  =  f 

03o  PP(P--^P 

■po  Hi-i2(,n  =  or[i3 

2350  ;)3R(0=IJSS 

’HI  CKKPP^CKI 

1870  Flop' I )  =LK2 

780  1  CONTlRiJf. 

’3?':i  11  JK'ITI. ';6,32.i 

'.•0  IJRI  ri.(6,31  )  (  rHH'.D.XXa  I.  f(  I  ).PP(  I),PPS(.I.' ,HH  j(P  .RAOiU  |  . 

■91'  1  CKK 1  '  P  .  CKK2  ( I ) , PHK  1 ) ,  I  =  t  .  NTH  ) 

■  .  'J  IFUJ.EQ.I  )  GO  ro  ,5 

29  30  UO  4  PP  .NTH 

.  >  4  '0  bRU  ( I ;  (  PH .[  ( I )  -GRU  (  P  )  /USk  I ) 

'  ’50  T  HdS  (  P  =  i  HnH  i  I)  +  1  .  ♦GRU  ( I )  H'THS  ( I ) 

’  ‘.'I  G-1  .535*  ( (HBd  )-0.7!  ft  (  -2.713)  )  *3.  3 
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2V,'0  G  =  ljt-GRIJ(  [mDGS(I) 

2980  rHN6(I)=rHNB<I)+GRU(I)+DTNS(I) 

2990  IF(G.LE.3.3)  GO  TO  501 

3000  =  .535/(0-3.3) )**0.3A46+0. 7 

3010  H=HB(I) 

3020  E  =  -(G+H)*(2./<H*(H  +  1 . )»(H+2.) ) ) 

3030  BETB(  I  )  =  1  . cTHNBdl/dHHBID^E) 

3040  4  CONTINUE 

3050  3  DO  2  I ---I, NTH 

3060  H=HB(I) 

3070  rHM=THHB(I) 

3080  BET=BETB(r) 

3090  USO^lJSR(I) 

3100  PSO=l-'l-'S(I) 

3110  CKI'CKKI (I) 

3120  Cld-CKK2(I) 

3130  CiUL  BLAY(RN,U30,PSO.CK1  ,Cl<2. H . IHrt. BET . CF  , B IH . UG , D 1  N  , THfM 

3140  RTHi  I  ,>^RN^t:USO*THh 

SI  50  F:ri(I)=RrH(I)*H 

j160  DTAd'F^HdHMBd) 

3170  CFLd)^=2000.  ^CF 

3130  CF=CFLd} 

3190  CALL  FLFsbUm  ,bUii2,SUh3. SUrt4, DIOS, BET, CF.CFUW.lFBB.CC!  ' 

5200  CFULdl^CFvJU 

5210  CFBLd)=CFBB 

5220  CSLd)-Ci55 

5230  GRUd)=FHIdi 

3240  TTHd)  =TTHd)+DS»HH2d) 

3250  0THSd)-DTH 

3260  DGSd'vOG 

5270  ''iT;(l)=DTN 

S230  2  CONTINUE 

3290  URITE(6,40)  JJ.bi 

5300  UFI fE(6,  54) 

3310  WK 1 112(6,35)  (MBM),rHf1Bd),OTAd),BEiB(li,CFL(I),F:bsl).MHd). 

5320  1  CFULd),CFBL(I),CSLd).I  =  1  .NTH) 

5330  RETURN 

3340  501  URITE(y,406) 

5350  iJR[rE(9.40?)  G 

5555  URITE(V.405)  JJ.ST 

3360  STOP 

53;0  31  I  ijRniiTsol  12.',..Ed.'j.3FI2,5) 

s38‘;  3.  PuRnAT(//120H  TH  X  T  Ci' 

3390  1  F'SI  DTDS  R  K1  K2  F'Hi 

3400  I  •/) 
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3410  34  FORMAT (/I 19H  H  TH  DE 

3420  1  CF  RS  RTH  CFU  CFH 

34  30  in 

3440  35  F0RMAT(5F12.5,1H  ,E11.4,1H  ,E11.4,1H  .3F12.5) 

3450  40  F0RHAT(//25H  BOUNDARY  LAYER  AT  S( I3,2H)=F8.4) 

‘455  405  F0RMAT(19H  FAILED  AT  S TA  NO  ^,1I4,3H  S=,1F8.5) 

■440  406  F0RMAT(46H  G  IS  LESS  THAN  3.3  CANNOT  CONTINUE  IN  AGH 

'4?0  407  F0RMAT(3H  G=.1E15.5) 

'460  END 

4 


DL  !A 
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3490  SUBROUTINE  BLAY(RN.US0,PS0,CK01 ,CK02, H, THH ,BET ,CF ,DTH, DG, DTN . TUN  i 

3500  G=1 .535*( (H-0.7)**(-2.7t5) )+3.3 

3510'  F=0.0306»( (G-3. ) »*(-0.453) ) 

3520  THN2=THN**2 

3530  RT=RN»USOi‘THN 

3540  C=ALOG(RT) 

3550  C2=C*C 

3560  C3=C2:*C 

3570  A=0.01 9521 -0. 386768+C+0.023345+C2-0. 000701 »C3 

3580  B=0. 1  91  5 11  -0.834891  *0  +  0. 062588 ♦C2-0. 001 953  t[,3 

3590  CF=0.5»EXP(AtH+B) 

3600  20  DTH=CF+THrtMCK01-(2.+H)»PS(J) 

3610  DG=F/THH  +  G^MCK01  -PSO-DTH/ fHrt) 

3620  DrN  =  BET<CF  +  2.*rHNMCK01-PSO)  -THrtKI  .+H)»CKD2 

3630  10  RETURN 

3640  END 


3650  SUBROUTINE  FCF  (SUN1  ,SUH2, SUMS, SUh4  ,DTIiS  , BE  I . CF  ,C1- UU  ...  F  FB . L33  ) 

3660  X2=SUh1*SUM1+SU«2*SU«2 

3670  Y=SUrt1*SUH4-SUM2^»SUH3 

3680  Y2=Y*V 

3690  Ii=SQRTa2  +  Y2) 

3700  XNt=SUM2/D 

3710  XN2=-SUH1/D 

3720  XN3=Y/D 

3730  '31-^SUtt3+3Ufn*LtIliS 

3740 

3750 

3, '60  S2-SUN4+F)Urt2*DTIiS 

3  7  70  SIi=:SQRf(S1fSI+S2'-32+1 .  ) 

3780  SI=St/3D 

3790  32=S2/SD 

3800  33=1,/SD 

3810  B1=S2»Xr>l3-S3t:AM2 

3820  B2=33*XN1-S1  fXN3 

5830  B3=SI*XN2-S2^»^XNt 

3840  CSl=CF*(SUBET*ei ) 

3850  CS2=CF  MS2t-f)ET*B2) 

3860  CS3  =  CF  t  (S3mEr»63) 

3870  IF(SiJrt2)  1,2.1 

3830  2  U1=0. 

3890  U3^M.O 

3900  GU  ro  3 

3910  1  Ul^bbili-  fjiJtH  l■bUfl4/SUM2 

1920  UD-SQRr(U1 H  . ) 

3930  U1=U1/U[i 

3940  U3=1./U£i 

3950  3  IF (SUM  I)  4,5,4 

3960  5  [i2  =  0. 

3970  05  1.0 

3980  GO  ro  6 

5990  4  U:2  =  3U«4-SUM2^tSUrt3.SUnl 

4U00  UB  =  SQRT(:02f[i2M.) 

40 10  D2  =  D2/UIi 

4020  £i3=1./UD 

4030  6  Ll-Uy^U1+CSl+«3fCS3 

1040  CF6B=[i2tCG2^li3*C33 

4050  RETURN 

4060  ENii 
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4070  SUBROUTINE  GLUG(N,f1) 

4080  COrtMON  /G/BN(25,10),UK(50),DK(50),TN<50),TrtO 

4090  DIMENSION  AMK(10.50) 

4100  M2=2*M-I 

4110  (13=M2-3 

4120  DO  1  1=1, N 

4130  DO  2  J=2,M2 

4140  SUM=0.0 

4150  IF(J-M)  3,3.4 

41i0  3  DO  5  L=1,J 

4170  OL-1 

4180  L1=J+1-L 

4190  5  SUH=SUM+C*(BN(L1 ,I1+eN(L,I)) 

4200  GO  TO  7 

4210  4  J1=J+1-M 

4220  DO  6  L=J1,H 

4230  D=L-1 

4240  L1^J+1-L 

4250  6  SU«=SUM+C*(BN(L1 .1)*6N<L,I1) 

4260  7  AMK(I,J)=SU(1 

4270  UK(J)=0.0 

4260  2  CONTINUE 

4290  1  CONTINUE 

4300  DO  29  J=3.N2 

4310  J2=J-2 

4320  SUM=0.0 

4330  DO  30  L=1 .J2 

4340  C-L 

1350  CH./C 

1360  30  SUrt=SUM+C 

1370  29  UK(J)=SUM 

1380  DO  8  J-2,rt2 

1390  SUM=0.0 

1400  DO  9  1  =  1, N 

1410  03-2  +  1 

4420  9  SUM=SUM+C+Ar1K(  l.J) 

4430  8  DK(J)=SIJM 

4440  DO  27  L«^=1,n3 

1450  SUM =0.0 

116U  Lf1f1=Li'1  +  3 

44:^0  UN=1. 

1180  DO  28  LK=LMr1,M2 

1190  KM:=LK-Lr1-2 


0 

SUBIRUUI  INE  UGHlSl  .N.M.FAC.FACP.IENHS) 

4620 

CONMON  /G/BN(  25,  ia),UK(50)  ,Ii1U50) ,  ln(50)  ,  IHO 

4630 

COflhON  /U/AN(  1  0)  ,ANP(  10)  ,ANPF'v  10)  .CN(IO)  ,CNPnOt  ,GN(  10)  ,CNPP(  1  0 

4640 

1PAC 

4650 

DIMENSION  ANPPP(10),SP(50) 

4660 

M2=2+n-1 

4a70 

(13  =  (12 -.3 

4680 

sr-'U  )  =1 .0 

4690 

00  11  L=2,M2 

4  700 

1  1 

SP(L)=Sf(L-l )*sr 

4710 

DO  12  J=1 .N 

4720 

AN( JJ=0.0 

4730 

ANPU)=0.O 

4  7  40 

ANPP( J)=0,0 

4750 

ANPPPl J)=0.0 

4760 

.00  13  L  =  1.ri 

4770 

13 

ANv  J)=ANU)+BN(L,J)*SP(L) 

4780 

DO  14  L=2,M 

4790 

OL-1 

4800 

14 

ANP ( J  )  =ANP  ( J )  +0(9 ( L .  J ) eSP  ( L-1 )  t'C 

4810 

DO  15  L=3,M 

4820 

(2=(L-2)+^(L-1  ) 

4830 

15 

ANPP(J)=ANPP(  J)+BNa,J)+SP(L-2)*C 

4840 

DO  22  L=4.  M 

4850 

C=(L-3)*(1  -2)+^(L-1) 

4860 

22 

ANPPP(J)=ANPPP(J)+C«6N(L,J)*SP(L-3) 

4870 

1  2 

CONTINUE 

4880 

GN(1  )=0.0 

4890 

i:N(1  )=0.0 

4900 

CNPd  )=:0.0 

4910 

CNPPl 1 )=0.0 

4920 

DO  16  L=1 ,N 

4930 

C  =  3-2»L 

4940 

CNU  i  =CNd  1  +  AMP(L(+AN(L)*C 

rv5'j 

CNPP  (  1  )  =i:NPP  (1)13 . 0  +  C  +ANP  (  L  )  +ANPP  ( L  )  +C:t:AH  ( L )  t:ANPPP  ( L  ) 

40aC> 

1 

CNP(  1  )=CNF'(  1  )  +  (ANPP(L)*AN(L)+ANP(L) ++2)  iC 

4870 

7 

DO  17  J^;.N 

4980 

CN( J)=0.0 

4990 

(;np(J)=o.o 

ouOO 

(:npp(J)  ^0.0 

‘  j  J  '  0 

LU=N-JH 

'.C2v 

on  10  L=1.LU 

:-l,0 

03-2+L 

‘  1 0  4  0 

LJ=J+L-1 

'.050 

(,(1(  J)=t:N(  .J)+ANP  a  J)»  ANlL)  tc 
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L.n  cr 


5060 
'"■0  70 
5080 
5090 
5100 
5110 
5120 
j  1  3  0 
5140 


516  0 
5  1 7  U 
5180 
190 
200 
5210 
5220 
5230 
5240 
5250 

j  2  6  0 

5270 
5280 
5290 
5300 
5310 
5  320 
5330 
5340 
5  350 

I J i' 

5  3/0 

■  H  5 
5  39  0 
5  400 

4  !  0 

5  4  2  0 

■’  J 

■-,440 
5  450 
■|460 
4/0 
4  6  'J 
,4?0 


CNPP' J)=CNPP\ J  >  +  2.0*C»ANP(L)*ANPP(LJ)  H.*anPP(L )»AnP'  I 
1+C*AN(L)*ANPPF'(LJ) 

18  CNP( J)=CNP( J)  +  (ANPP(LJ)+AN(L)+ANP(LJ)»(4NP(L)  )+C 
GN( J)=CN( J) 

DO  19  L^J.N 
C=3-2»L 
LJH  H  -J 

i:N(  J)  =  1:N(  JitA(4P(LJ)  *AN(Ll  tc 
LNPP ( J )  =  CNPP ( J  3  +  2 . 0+C»ANP (L ) ^ANPP l L  J 1 
1 +C4ANPP(L )4ANP(LJ)+C»AN(L) tANPPP(LJ) 

10  CNPl  J)=CNPi  J)  +  (ANPI-  aJJ+AI4(L)+ANP(LJ)  tANP(L)  )*C 
I ;  CONIINUE 
SUMl =0.0 
SUrt2=0.0 
£iO  20  L=3.f12 
CL-L-2 

20  sum  =SUrtl+CL*DKlL)»UK(L)*SP(L-2) 

DO  21  L=t ,M3 

CL=L 

21  5IJH2  =  SUn2+CLfTrt(L'^SPiL) 

SUM3=0.0 

00  23  L=4,M2 
CL=(L-2)ML-3) 

23  SUH3 =SUM3+CL t DK ( L ) ♦ UK ( L ) t SP ( L - 3 » 

SUM4=0.0 

00  24  L=2,ri3 
CL:=L  +  (L-1  ) 

24  SUM4=SUfl4H.LHfi!L)tSP(L-1  ) 

PS=4.-4.+SP(3) 

B0l'=-0.5 1 CNP1 1  )  »  Al.0GiPb)  +  4 ,  iSP ■,  2  5tCN(  1  )  /PS  +  iUni  .  5  * 
KAC  =  BOP  +  CNP(  1  )4AL0G(AN(1  U  ^CN(1  I  ^AAPd  \'AN',1  ) 

BOPP  =  -0 . 5*CNPP(1  )  +AL(jG(PS)  M  .  nCN'  1  t  2  .  t  SP  (  2  '  Ui'll ' :  ' 

1  +  3  ,  *SP(  3  M  CNU  )  /  (  PS  t  PS  '  t -.UriG  C  4 

41  f  hL  f- BOPP  +  CNPPil  i  •  AL0G(  AN' 1  ) )  +  (  2 .0  m;np  1 1  )iANI-'(1  i+Or."  i 
1  /AN(  1  )-CN(  1  )  •  ’  ANP(  1  •  .'ANU  ■  /  2 

B0  =  0.0 

iMj  ,i'-3,fl2 

25  BG  =  Bi)nj|'.  i  J  I » lu:  ^  J  >  IGP  J-  I  ) 
no  26  J--1  ,313 

J6  PiJ  =  Pij-'j.5  flrtU  )  fSP'  J  •  d 
?0  =  BC  /  .5  t-  fMu 

P  AC  =1.  N  1  )  •  ALOG  AN  ^  1  i  )  t  BO  ♦  S  F-O  .  (  1  i  4 AL  U' i '  F'  j 

PE  TURN 

END 
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too  FILE  5iKIND=REM0TE,rtAXRECSIZE=22) 
no  FILE  6<KIND  =  PRINTER,if1AXRECSI2E=132J 

1 20  FILE  7(TITLE  =  "TBL3DOPT",KIND=DI3K.PROTECT10-SAVE,f1AXI<ELSIZ£^ 
130  FILE  8(TITLE  =  "BNSAL",KIN[)  =  DlSK,FILETyPE=2) 

140  FILE  9<KIND  =  REM0TE,MAXRECSIZF:=22) 

150  FILE  10(TITLE="TBL3DINP",KINIi=DI&K,FlLErrFE^Z) 

1  60  FILE  1  HTITLE  =  "TBLSAyE",KIN[i:nHbK.PkuTECIIUN=SAOE.nAxf<lj:SIZE 
i-'O  $RESET  FREE 

180  C  PROGRAM  TURBULENT  eOUNDARY  LAYER  COORDINATE  SYSTEM,  BODY 
190  C  GEOMETRY,  AND  POTENTIAL 

,200  COMMON  /A2/  BN(25.10) 

210  COMMON  'AS/  UK(50  )  ,DK(  j'j) ,  InioO)  ,LN' !0  Y  10  i  ,GN'.  !  V  , 

l20  common  /A4/  an •:  1 0 ) ,anpu 0) ,anpp(  1 0 ) 

230  COMMON  /A6/  ITHISO) 

240  COMMON  -'65/  XA  ■,  1  OO.jO  >  ,  YA  (  1  00 , 50 )  ,30  i  1  0'.' .  jV  ! ,  CP  (  1  00 , 50  ; 

250  COMMON  /  /  TITLE(12).TITL(3i 

260  DO  21  in,  25 

2/0  Du  2  1  J-1  , 10 

230  21  6N(I,J)=0.0 

290  LiiJ  22  1  =  1,50 

iOO  UK(I)=0.O 

310  DK(I)-0.0 

320  22  rH(l)=O,0 

.5  30  KLAD(S,I)  n'ri'LE'.J),J=1 ,12) 

340  URirE(9,l'  (TIILE(J),J=1 ,12) 

350  URITE(Z,1)  (TITLE(J),J=1,12) 

360  READ(8,405)N,KPU,UL 

370  UKI IE (9,405 )N,KPK.BL 

380  DO  13  jn.N 

390  RliAD(8.3  )  ^  BN  ( I ,  J) .  I  =1  .LPKJ 

4  0  'J  0  R I  T  E  .  3 )  (  N  N  I ,  J ) ,  I  '  1  ,  K  T'  I ' ) 

tlL  13  CONTINUE 

4.0  UR  HE  (9,4  I  4) 

430  UKiH.' 9,415) 

4  40  URL  TL 41  6) 

4.5v  URL  IE  ^v,  412) 

460  UR[rE(9,418) 

470  READ( 5,412)  NINPI 

4  8','  G  U  T  U  (  3 0  1  ,  -iO 2 , 3 •:>  , ,  i(  i  NT'  I 

4  90  30  1  u  k  i  i  t '  V .  4 1  '9 ) 

STOP 

510  302  URITE(9,4O0) 

5  20  UR  I  IF.  ^  9. 420) 

' '  3 '/  READ  (5,412'  !-  Bl_ 

54.J  IF(LBL.NE.l  )  GIJIO  210 


550 

URl rE(9,421 ) 

j60 

R£AD(5,401 )BL 

570 

URI TE(9,40I )BL 

580 

210 

URI TE(9,422) 

590 

READ  (5,401 )START 

600 

DRITE(9.401 ISTARI 

610 

URITE(9,423> 

6  20 

REAL  (5,401  iSRINI'i 

630 

URIIE(9,401 ISFINIS 

640 

URITE(9,424) 

650 

READ  (5,405)NSTAT 

660 

URITE(9,405)NSTAr 

670 

URITE(9,425) 

680 

READ  (5,405)NTH 

690 

URI  TE(9,405)N[H 

700 

URI re (1 1 ,401 1  PL 

710 

URI  1E( 1 1  ,401  )  SIARI 

.’20 

URITEd  1,401  )  SFINIb 

'30 

URIlEl 1  1,405)  NSTAT 

740 

URITEd  1 .405)  NTH 

jO 

GO  TO  304 

.'6'J 

30  3 

REATi  d(.'.40l'fcL 

■' .  V 

READ  (10,401)  bl'ARI 

"dO 

READ  do, 401)  SFINI15 

'90 

READ  d0.4'j5,'  N'dlAT 

300 

READ  do,  405.'  NIH 

;i  1  0 

.30  4 

CONTINUE 

3  i'  0 

URI  IE  (7,0,'  ,  BL 

3  30 

UR  I T  E ( 7 ,5 )  51 AK  T , SF INIS ,NbT 

■14  0 

TTHd  )-0.^j 

350 

F[02^  d  .570,’9632679 

li  ()  0 

ENddri  ■  1 

3  "  0 

DT=PI02/EN 

380 

DO  200  [d^.NTH 

390 

200 

TTHdidlHd-l  )fDT 

700 

URITE(9,3  )  d IH( 1 ) , I  d .NTH) 

710 

j  V 

URITE(6,3) 

■’’  2  0 

URI  IE'  6.1  >  1  1  ITl.El  Ji  ,  1=1  . 1  2 

■/30 

DO  4  I  =  l,i;i-’K 

■r  4V 

Du  4  J=  1  ,N 

•'  ‘  IJ 

4 

BN( I , JJ  =8L  tBNv I  .J) 

760 

EN^NdTAT-  1 

7  '0 

)iS='SFINI;3'STARI)/EN 

■'80 

DSO=DS 

■/7  0 

1  1'^  EIART/DS+I  . 

8') 


1000 

DO  23  1=1,10 

1010 

AN( 1 )=0.0 

1020 

ANPd  )=0.O 

1030 

ANPP(I)=0.0 

1040 

CN(I)=0.0 

1050 

CNP(1)=0.0 

1060 

23 

GN(I)=0.0 

1070 

CALL  GLUG(N,KF'K) 

1080 

ST=START-DS 

1090 

DO  7  JJ=1 .NSTAl 

1100 

ID=0 

1  n  0 

INDEX=0 

1  120 

6 

3  r r  ub 

1  1  30 

CALL  AGHIFAL ,N.N 1 H, J  J . DS . ST . 10 . INDEX . KPK ) 

1  1  40 

[iS  =  DSO 

1150 

500 

CONTINUE 

1  160 

) 

CONTINUE 

1170 

1 

FQPhAK  1  2A6) 

1  180 

t 

l-■0R(1ftT(2I10.F1O.5) 

1190 

3 

F0RMAT(7F1'j,'5) 

1200 

5 

FORMAT  2F10. 0,2110) 

1210 

8 

FORMATT 'H1 ) 

1220 

70 

FOkMAT(3AIO 1 

1230 

400 

FORMATtSiH  DO  TOO  UISH  TO  ENTEFt  NEU  8L^  ) 

1  240 

401 

FORMATdf  10.51 

1250 

402 

FORMAT (20H  Bl=  1F10.5 

1 

1  260 

403 

FORMAT (381  HB  IHMB 

BIITB  3F10.5 

1  270 

404 

F0RMAT(151  NTH=  115  ) 

1280 

405 

FORrtAT(2Hi,lF10.5) 

1  290 

406 

FORMAT (3F  0.0) 

1300 

407 

FORMAT(24F'  RE^  1F20.1 

> 

1  310 

408 

FQRMAT(4H  RE=) 

1  320 

409 

FORMAT '.24  •i3IAT=  115 

1 

i  330 

410 

FORMAT (30h  SI  S2 

FEIO.'S  ) 

134  0 

4  1  1 

F0RMAT(25H  TTH=  11-10. 5 

) 

1  350 

412 

FORMAT!  1  1 1  ) 

1  360 

413 

FORMAKlOH  end  of  1  iLi:  REAChliO 

1 

1  3  70 

4  1  4 

fokmati38h  ninf'T  dlngtes  the  type 

OF  INPUT 

1  380 

415 

FORMAT ijSH  HINPr^l  CARD  DATA 

) 

1  390 

41  0 

FORMAT (23H  2  REMOTE 

) 

1400 

417 

F0RMAT(23H  3  STORED  DATA 

) 

1410 

418 

FORMAT'.  15H  NINF'T  111 

> 

14:0 

419 

F0RMAT(43H  F'ROOIDt  READ  SlAIEnENT 

S  FfJA'  CARDS  Ai 

1  4  30 

4  20 

F0RMAT(27H  if  yes  TYPE  1  NO  TYPE 

0  1 

■40 

421 

FORMAT'.  15H  &L=  IFI'T.O 

0(  i 
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1500 

SUBROUTINE  GLUG(N,H) 

1510 

COHHON  /A2/  BN(2S,10) 

1520 

COMMON  /A3/  UK(50),OK(50),TM(50),CN(10),CNP(10),6N(10) 

1530 

DIMENSION  AMKdO.SO) 

1540 

N2=2*N-1 

1550 

M3=2=*M-4 

1560 

DO  31  1=1,10 

1570 

DO  31  J=l,50 

15B0 

31 

AMK(1,J)=0.0 

1590 

DO  1  1=1. N 

1600 

DO  2  J=2,M2 

1610 

SUf1=0.0 

1620 

IF(J-rt)  3,3.4 

1630 

3 

DO  5  L=1,J 

1640 

C=L-1 

1650 

Lh=JH-L 

1660 

b 

SUf1=SUM+C»<BN<L1 ,1)*BN(L,1)) 

1670 

GO  TO  7 

1680 

4 

J1=J  H  -M 

1690 

DO  6  L=J1 ,rt 

1700 

OL-1 

1710 

L1=JH-L 

1720 

6 

SUM=SUH+C»(BN(L1 ,I)4BN(L,I>) 

1730 

7 

ArtK(I,J)=SUi1 

1740 

UK<J)=0.0 

1750 

"1 

CONTINUE 

1760 

1 

CONTINUE 

1770 

DO  29  J=3.M2 

1780 

J2=J-2 

1790 

SUM=0.0 

1800 

DO  30  L=1.J2 

1810 

C=L 

1820 

01./C 

1830 

30 

SUM=SUM+C 

1640 

29 

yK(J)=3Uf1 

1850 

DO  8  J=2,M2 

1860 

SUM=0.0 

1870 

DO  9  1=1, N 

1880 

C=3-2-»I 

1890 

9 

SUf1=SUM+C+ANK(I,J) 

1900 

8 

DK(J)=SUi1 

1910 

DO  27  L11=1,M3 

1920 

SUM=0.0 

1930 

LMM=LN+3 

1940 

UN=1 . 
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1950 

DO  28  LK=LHN,H2 

1940 

KM=LK-L«-2 

1970 

XHK=KM 

1980 

UM=-1 .*UN 

1990 

28 

SUH=SUh-fOK<LK)« 

2000 

27 

TH(LH)=SUh 

2010 

RETURN 

2020 

END 

It 


.4^UN)/XMK 
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2030 

SUBROUTINE  POT(ST,N,H,FAC) 

2040 

CONNON  /A4/  AN(10),ANP(10),ANPP(10) 

2050 

CONHON  /A3/  UK(50),DK(50),TH(50),CN(10),CNP(10),GN(t01 

2060 

COHNON  /Cl/  SP(SO) 

2070 

H2=2*H-1 

2080 

M3=H2-3 

2090 

GN(1)=0.0 

2100 

CN(1)=0.0 

2110 

CMP<1 )=0.0 

2120 

DO  16  L=1,N 

2130 

C=3-2»L 

2140 

CN<1  )=CN<1  )+ANP(L)*AiM(L)*C 

2150 

16 

CNPd  )=CNP(1)  +  <ANPP(L)-»AN(L)+AMP(L>»*2)<C 

2160 

DO  17  J=2,N 

2170 

CM(J)=0.0 

2180 

CNP<J)^=0.O 

2190 

LU=N-J+1 

2200 

DO  IS  L=1 ,LU 

2210 

C=3-2=*L 

2220 

LJ=J+L-1 

2230 

CN(J)=CN(J)+ANP(LJ)^»AN<L)*C 

2240 

18 

CNP(J)*CNP<J)+(AMPP(LJ'*AN<L)+A«P(LJ)*ANP(L))i=C 

2250 

6N<J)=CN(J) 

2260 

DO  19  L=J,N 

2270 

C=3-2*L 

2280 

LJaL+1-J 

2290 

CN(J)=CN(J)+ANP(LJ>^tAN<L)*C 

2300 

19 

CMP( J)=CNP<J)+<ANPP(LJ)»AN<L)+ANP(LJ)»ANP<L) ) »C 

2310 

17 

CONTINUE 

2320 

SUH1=0,0 

2330 

SUH2=0.0 

2340 

DO  20  L=3,ii2 

2350 

CL=L-2 

2360 

20 

SUM1=SUH1+a*DK(L)*UK(L)*3P<L-2) 

2370 

DO  21  L=1,N3 

2380 

CL=L 

2390 

21 

3UN2-SUH2+CL*Tfia)=»Sr-'(L) 

2400 

PS=4.-4.»SP(3) 

2410 

B0P=4.*SP(2)^»CN<1  )/PS 

2420 

B0P=B0P-0.5*LNP(1)  t'AL0G(PS)+SUM1-0.5»SUM2 

2430 

FAC=BOPtCNPn )*AL0G(AN<1 ) )+CN(1 )*ANP< 1 )/AN(1) 

2440 

RETURN 

2450 

END 

tt 
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2460 

SUBROUTINE  BODY<ST,N,H) 

2470 

COHHON  742/  BN<2S,10) 

2480 

COHHON  /A4/  AN<tO),ANP(10),ANPP(10) 

2490 

CONNON  /Cl/  SP(SO) 

2900 

H2«2*H-1 

2510 

H3*2*H-4 

2520 

N4»N2*1 

2530 

SPdIsl.O 

2340 

DO  It  L>2,H2 

2550 

11 

SP(L)=SP(L-1)=»ST 

2560 

DO  22  L-H4,50 

2570 

22 

SP(L)»0.0 

2580 

DO  12  J=1,N 

2590 

AN(J)=0.0 

2600 

AMP<J)-0.0 

2610 

ANPP(J)«0.0 

2620 

DO  13  L»1,M 

2630 

13 

AN(J)=AN<J)-fBN(L,J)«SP(L) 

2640 

DO  14  L=’2,H 

2650 

C»L-1 

2660 

14 

ANPlJIsANPlJI+BNILjJI^SPd-DfC 

2670 

DO  15  L-3,H 

2680 

C=<L-2)*(L-1) 

2690 

15 

AMPP(J)=AHPP(J)*BN(L,J)-»SP(L-2)=»C 

2700 

12 

CONTINUE 

2710 

RETURN 

2720 

END 
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2730  SUBROUTINE  BOER(DSDT,S,N,KPK,TH) 

2740  COHHON  /A4/  AN(IO) ,ANP< 10) ,ANPP(10) 

2750  CALL  BOOY(S,N,KPK) 

2760  XS«0.0 

2770  YS»0.0 

2780  XT=0.0 

2790  YT»0.0 

2800  DO  1  J=1,N 

2810  C=3-2*J 

2820  CC=COS(C=*TH) 

2830  SS=SIN<C*TH) 

2840  XSsXS+CC(ANP(J) 

2850  YS=rS4SS:*ANP(J) 

2860  XT=XT-SS*C*AN(J) 

2870  1  YT=YT+CC*C=*AN(J) 

2880  DSDT=-(XS-»XT+YS4YT)/(XS*XS+YS*YS+t.) 

2890  RETURN 

2900  END 
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2910  SUBROUTINE  AGH(FAC,N,NTH, JJ,DS,ST,ID,IMDEX,KPK) 

2920  CONHON  /A3/  UK(50),DK(50),TN(SO),CN(10),CNP(10),GN(10) 

2930  COHHON  /A4/  AN(10),ANP(t0),ANPP(10) 

2940  CONHON  /A6/  TTH(SO) 

2950  COHHON  /BS/  XA(100,50) ,YA( 100,50) ,SV( 100,50) ,CP< 100,50) 

2<’fO  DIHENSION  SS(50) 

2970  URITE<4,27)  JJ,ST 

2980  URITE<7,427)  JJ,ST 

2990  SS(1)=ST 

3000  DO  1  1=1, NTH 

3010  IF(l.GT.I)  GO  TO  2 

3020  TH»TTH(1) 

3030  S=SS<1) 

3040  CALL  BDER(DSDT.S,N,KPK,TH) 

3050  GO  TO  3 

3060  2  TH=TTH(I-1) 

3070  S=SS(I-1) 

3080  CALL  BDER(DSDT,S,N,KPK,TH) 

3090  S1=SS(I-1 )+(TrH(I)-TTH(I-1))*DSDT 

3100  TH=TTH(I) 

3110  CALL  BDER(DSDTC,S1,N,KPK,TH) 

3120  SS(I)=SS(I-1)+0.5*<TTH<I)-TTH(I-1))*(DSDTC+DSDT> 

3130  S=SS(I) 

3140  3  CALL  POT(S,N,KPK,FAC) 

3150  X=0.0 

3160  Y=0.0 

3170  SUH1=0.0 

3180  SUH2=0.0 

3190  SUH3=0.0 

3200  SUH4=0.0 

3210  SUH5=0.0 

3220  SUH6=0.0 

3230  SUH7=0.0 

3240  SUH8=0.0 

3250  SUH9=0.0 

3260  SUH10=0.0 

3270  SUM11=0.0 

3280  SUM12=0.0 

3290  SUh13=0.0 

3300  SU(114=0.0 

3310  SUM15=0.0 

3320  SUrt16=0.0 

3330  SUM1 7=0.0 

3340  SUM18=0.0 

3350  SUt119=0.0 
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3360  SUH20=0.0 

3370  SUH2 1=0.0 

3360  DO  23  J=1,N 

3390  C1»2=*J 

3400  C2=1.-Cl 

3410  C3=2.-C1 

3420  C4S3.-C1 

3430  CS1=C0S<C1=»TH) 

3440  CS2=C0S(C2»rH) 

3450  CS3*i:0S<C3*TH) 

3460  CS4=C0S(C4*^TH) 

3470  SS2=SIN(C2»TH) 

3480  SS3=SIN(C3*TH) 

3490  SS4=SIN(C4*TH) 

3500  SUhl=SUMUCNP(J+1)*CS1/C1 

3510  SUH2=SUH2-t'CN(J)»CS2 

3520  SUH3=SUH3+CN<J)*SS2 

3530  SUH4=SUh4+ANP(J)*CS4 

3540  SUH5=SUM5*ANP(J)»SS4 

3550  SUH6=SU«6+AN(J)*CS3*C4 

3560  SU«7=SUH7+AN< J)*SS3*C4 

3570  SU«8*SU«8+ANPP(J).»CS4 

3580  SUH9=SUh9+ANPP<J)»SS4 

3590  SU1110=SUM10-AN(J)»C4*SS4 

3600  SUM11=SUM11+AN(J)4C4*CS4 

3610  SUri12=ijUrt12-ANP(J)-*C4-»SS4 

3620  SUMt3=SUM13+ANP(J)*C4»C34 

3630  SUM14=SUH14+CNP(J)»CS2 

3640  SU«15=SUM14+CNP(J)*SS2 

3650  SU«16=SUf116+C2»CN(J)=»CS2 

3660  SU«17=SUi117-C2*CN<J)*SS2 

3670  SUN18=SUM18+C4=»ANP(J)-*CS3 

3680  SUH19=SUM19+C4>*ANP(J)*S33 

3690  SUf120=SUM20-C4*C3  *AN  <  J )  *333 

3700  SU«21=SUM21+C4*C3*AN<J)*C33 

3710  X=X*AN(J)*CS4 

3720  23  Y=Y*AN(J)»SS4 

3730  DE=SUM6**2+SUM7**2 

3740  DEI=1.0/DE 

3750  U=(SUM2»SUH6+SUH3*SUi17)/0E 

3760  V= ( SU«2*SUf17-SUN3*SUM6 )/DE 

3770  g=-(U*SUh4+W*SUi15)“SUM1+FAC 

3780  P=-2.*U-U**2-V**2 

3790  X  YSS=SUH6  »SUii1 8+SUii7*8UM1 9 

3800  XYST=SUH6*SUM20+SUM7*SUI121 
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3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120  C 

4130 

4140 

4150 

4160 

4170 

4180  C 

4190 

4200 

4210 

4220 

4230 

4240 

4250 


US= ( SUM1 4*SUH6-«^SUH2*SUN1 8+SUH1 5»SUH7-i-SUH3*SUi1 1 9 ) 
US=(US-2.0*U«XYSS)*DEI 

UT=(SUM17«SUH64SUM2’»SUH204SUH16=»SUM7+SUH3*SUH21) 

UT=(UT-2.0*U«XYST)*D£I 

US=SUH14:»SUH7-fSUN2*SUH19-SUH15*SUH6-SUH3«SUH18 

yS=(VS-2.0*V»XYSS)*DEI 

VT=SUH17*SUM7tSUH2*SUH21-SU«16*SU«6-SUM3»SUM20 
VT=(VT-2.0»V*XYST)*DEI 
H=SUH4*SUH4-fSUH54SUMS«-1 .0 
H2=SQRT<H) 

H21=1.0/H2 

H3=H*H2 

F=-<SUH10*SUM4+SU«11 »?UH5)/H 

G=(SUM10+SUH4<F)=»*2+(SUH11+SUH5*F)»*2+F»F 

G=SQRT(G) 

GI=1 .0/G 
DUDLP=H2I*US 
DVDLP=H2I*VS 
0UDLP=GI*(F-*US+UT) 

DVBLT=GI*(F*VS+VT) 

D=SUf11 0=»SUM1 0+SUHl  1  ♦SUH1 1  +  ( SOlil  0^»SUM5-SUH  1 1  ♦SUH4 )  ft-2 
D=SQRT(D) 

EN1»SUH11/D 

EN2=-SUM1O/0 

EH3=  ( sum  0=*SUI15-SUH1 1  »SU«4 )  /D 

ET1=<SUH5*EN3-EN2)/H2 

ET2=(EN1-SUI14^»EN3)/H2 

ET3=(SUM4*EN2-SUM5*EN1 )/H2 

EP1=SUM4+H2I 

EP2=SU«5i>H2I 

EP3=H2I 

COMPUTATION  OF  XKT  THE  GEODESIC  CUPOATURE  OF  THE  PHI  COORDINATE 

HD=(SUM4*SUM8+SUM5*SUM9)/H3 

EP1S=  SUN8»H2I~SUH4=»HD 

EP2S=SUM9*H2I  -SUM5*HD 

EP3S  =  -HD 

XKT  =  (ETHEP1S*ET2*EP2S+ET3»EP3S)»H2I 

COMPUTATION  OF  XKP  GEODESIC  CURVATURE  OF  THATA  COORDINATE  LINES 

HD=(SUM4*SUMt2+SUM5»S0M13)/H3 

EP1T  =  SUM12*H2I-SUM4*HD 

EP2T  =SUm3i‘H2I-SUM5*HD 

EP3T  =  -HD 

GI  M  .0/G 

P1LT=  GI*(F»EP1S+EP1T) 

P2LT=  GIMF*EP2S+EP2I  ) 
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4260  P3LT  =GI*(F*EP3S+EP3T) 

4270  E1*P2LT*EM3-P3LT*EM2 

4280  E2=P3LT*EN1-P1LT*EH3 

4290  E3=P1LT*EN2-P2LT*EM1 

4300  XKP=  <  SUn4'*E1  +SUM5*E2+E3 )  *H21 

4310  C  COMPUTATION  OF  UP,UT,  AND  UM  VELOCITIES  IN  ORTHOGONAL  COORDINATES. 

4320  U=1.0  +U 

4330  UN=ENt*U-»EN2*V+EN3«U 

4340  UT=ET1=*U+ET2*V+ET3*U 

4350  UP=EP1*U+EP2*V+EP3*U 

4360  H=H2 

4370  URITE(6,408)  1,X,Y,TH,U,V 

4380  URITE(7,408)  1.X.Y,TH,U,V 

4390  URITE(6,408)  2,U,UP,UT,UN.SS(1) 

4400  URITE(7,408)  2,U,UP,U T ,UN,SS( I ) 

4410  URITE(6,408)3,XKP,XKr.H.F,G 

4420  URITE(7, 408)3, XKP,XKT,H,F,G 

4430  1  CONTINUE 

4440  500  RETURN 

4450  27  F0RHAT(//7H  S(I2,2H)=F9.6) 

4460  400  F0RMAT(8E15.7) 

4470  408  F0RMAT(113,5E15.7) 

4480  427  FORMATS  13, 1F9. 6) 

4490  END 
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IIFILE  (CHXDCBLGEO  ON  DTNSRDC 

100  FILE  5<KIND»REH0TE,NAXRECS1ZE»22) 

120  FILE  7(TITLE<‘''CBL3DOPT”,KINO>DISK,PROTECTION>SAVE,HAXRECS1ZE»22) 
130  FILE  8(TITLE*"BNSAL",KIND*DISK,FILETyPE»7) 

140  FILE  9(KIND>:REH0TE,HAXRECS1ZE=22) 

150  FILE  10(TI7LE  =  '‘CBL3D1NP'*,K1ND=DISK,FILETYPE=7) 

UO  FILE  11  (TITLE  =  '‘CBLTAPE“,KIND=DISK,PROTECTION=SAVE,HAXRECSIZE=22) 

170  IRESET  FREE 

180  C  PROGRAH  CBL 

190  CONHON  /A2/  BN(25,10) 

200  COHHOM  /A3/  UK(50) ,DK<50) ,T«(50 ) ,CN( 10) ,CNP( 1 0) ,GN( 1 0) 

210  COHHON  /A4/  AN( 10) ,ANP( 10) , ANPP( 10) 

220  COHHON  /A6/  TTH(50) 

230  COHHON  /B5/  XA« 100,50) JA< 100,50) ,SV< 100,50) ,CP( 100,50) 

240  COHHON  /  /  TITLEil7),TITL(3> 

250  DIHENSION  S<50) ,X(50, SO) ,7(50,50 ) 

260  DIHENSION  SE(500) ,XE(500) ,7E(500) ,THE(500) 

270  DO  21  1=1,25 

2b0  DO  21  J=l,10 

290  21  BN<I,J)=0.0 

300  DO  22  1=1,50 

310  UK(I)»0.0 

320  DK(I)=0.0 

330  22  TH(I)=0.0 

340  READ(8,1)  <TITLE< J) , J=1 , 12) 

350  URITE(9,1)  (TITL£(.I)  ,J=1 ,12) 

360  URITE(7,1)  (TITLE(J),J=1 ,12) 

370  REA0(8,405)N,KPK,BL 

380  URITE(9,405)N,KPK,BL 

390  DO  13  J=1,N 

400  READ<8,3  )  (BN(1 ,J) ,1=1 ,KPK) 

410  URITE(9,3)  (  BN(I,J),I=1 ,KPK) 

420  13  CONTINUE 

430  URITE(9,414) 

440  URITE(9,415) 

450  URITE(9,416) 

460  URITE(9.417) 

470  URITE(9,410) 

480  READ(5,412)  NINPI 

490  GOTO  (301,302,303)  NINPT 

500  301  URITE(9,419) 

510  STOP 

520  302  URITE(9,400) 

530  0RITE(9,420) 

540  READ  (5,412)  LBL 

550  IF(LBL,N£.1)  GOTO  210 

560  URITE(9,421) 

570  READ(5,401 )BL 


580  URITE(9,401)BL 

590  210  START'-I.OOO 

600  SFINIS^I.OOO 

650  URITE(9,424) 

660  READ  (5,429)MSTAT 

670  URITE<9,405)NS7A7 

680  UR1TE(9,425) 

690  READ  (5,429)N7H 

700  URITE(9,405)NTH 

710  URITE(11,401)  BL 

720  URITE(n,401)  START 

730  URITE(11,401)  SFINIS 

740  URITEd  1 ,405)  NSTAT 

750  gRITE(11,405)  NTH 

760  GO  TO  304 

770  303  READ  <10,401 )BL 

780  READ  (10,401  )  START 

790  READ  (10,401)  SFINIS 

800  READ  (10,405)  NSTAT 

810  READ  (10,405)  NTH 

820  304  CONTINUE 

830  URITE<7,2)  N,KPK,BL 

840  UR1TE(7,5)  START, SFINIS, NSTAT, NTH 

850  TTH(1)=0.0 

860  PI02»  -1.57079632679 

870  EM*NTH-1 

880  DT»PI02/EN 

890  DO  200  1=2, NTH 

900  200  TTH(I)=TTH(I-1 )+DT 

910  gRITE(9,3)(TTH(I),l=1,NTH) 

940  DO  4  1=1 ,KPK 

950  DO  4  J=1,N 

960  4  BN(I,J)=BL»BN(I,J) 

970  EH=NSTAT-1 

980  DS=(SFINIS-START)/EN 

990  DSO=DS 

1000  KD=-START/DS41  . 

1010  DO  23  1=1,10 

1020  AN(I)=0.0 

,1030  ANP(I)=0.0 

1040  AMPP(I)=0.0 

1050  CN(I)=0.0 

1060  CNP(I)=0.0 

1070  23  GN<I)=0.0 

1080  ST=START-DS 

1090  HTHH0=NTH-1 

1100  S())=ST 

1110  DO  201  1=1, NSTAT 

1120  S(I)=S(I)+DS 

1130  DO  211  J=1,NTH 

1140  CALL  CORD(N,S(I),TTH(.J),X(I,,i),T(I.J),KPK) 


1150  211  CONTINUE 

1160  S(Ii1)»S(I) 

1170  201  CONTINUE 

1171  DO  204  J=1,NTH 

1172  X(1,J)»0.0 

1173  204  X(NSTAT,J)sO.O 

1180  NSN0=NSTAT-1 

1190  NTHH0*NTH-1 

1200  DO  202  I=1,NSH0 

1210  SSE=S(I)+0.5»DS 

1220  DO  202  J=1,NTHH0 

1230  NP=J+NTHN0*(I-1) 

1240  SE(MP)=SSE 

1250  THE(«P)=TTH(J)+0.5*DT 

1260  CALL  CORD(N,SE(HP),THE(MP),XE<HP),YE(HP),KPK) 

1270  202  CONTINUE 

1280  DO  203  I=1,NSH0 

1290  DO  203  J*1,NTHH0 

1300  MP=J+NTHH0*<1-1) 

1320  URITE(7,426)  MP 

1340  gRITE(7,427)  1 ,S(1 ) ,X( I, J) , Y( I , J) ,TTH( J) 

1360  URITE(7,427)2,S<I+1),X(1+1,J),Y<;[+1,J),TTH(J) 

1380  URITE(7, 427)3, S( I  +  1),X( 1  +  1 ,J  +  1 ),Y( 1  +  1,. J+1),TTH(J+1) 

1400  URITE(7,427)4,S(I),X(I,J+1),Y(1,J+1),TTH(J+1) 

1420  gRITE(7,427)5,SE(HP),XE(HP),YE(HP),THE(NP) 


1430 

203 

CONTINUE 

1720 

1 

F0RHAT(12A6) 

1730 

2 

FORMAT(2I10,F10.5) 

1740 

3 

F0RHAT(7F10.5) 

1750 

5 

F0RMAT(2F10.5,2I10) 

1760 

8 

FORHATdHI ) 

1770 

70 

F0RHAT(3A10) 

1775 

207 

CONTINUE 

1780 

400 

F0RMAT(30H  DO  YOU 

UlSH 

TO  ENTER 

NEU  BL?  ) 

1790 

401 

FORMATdFIO.S) 

1800 

402 

F0RHAT<20H  BL= 

1F10.5 

) 

1810 

403 

F0RHAT(38H  HB 

THMB 

BETB  3F10.5 

1820 

404 

F0RHATd5H  NTH= 

115 

) 

1830 

405 

F0RMAT(2I5,1F10.5) 

1840 

406 

F0RHAT(3F10.5) 

1850 

407 

F0RMAT(24H  RE= 

1F20.1 

) 

1860 

401) 

F0RMAT(4H  RE=) 

1870 

409 

F0RNAT(24H  NSTAT= 

115 

) 

1880 

410 

F0RMAT(30H  SI 

S2 

7F10.5  ) 

1890 

411 

F0RNAT(25H  TTH= 

1F10.5 

) 

1900 

412 

FORHATdII  ) 

1910 

413 

F0RHAT(25H  END  OF 

FILE 

REACHED 

) 

1920  414  F0RMAT(38H  NINPT  DENOTES  THE  TYPE  OF  INPUT 

1930  415  F0RHAT(23H  NINPT=1  CARD  DATA  ) 

1940  416  F0R«AT(23H  2  REMOTE  ) 

1950  417  F0RMAT(23H  3  STORED  DATA  ) 


418  F0RHAT<//15H  NINPT  111  ) 

419  F0RHAT(43H  PROVIDE  READ  STATEHENTS  FOR  CAROS  AT  301 

420  F0R«AT(27H  IF  YES  TYPE  1  NO  TYPE  0  ) 

421  FORHATdSH  BL-  1F10.S  ) 

422  F0RHAT(20H  START*  1F10.3  ) 

423  F0RHAT(20H  SFIHIS*  1F10.5  ) 

424  F0RNAT(20H  NSTAT*  113  ) 

425  F0RHAT(20H  NTH*  113  ) 

426  F0RHAT(1IS> 

427  F0RHAT(1I5,4F10.5) 

428  F0RMAT(12F5.3) 

429  F0RHAT(1I3) 

END 

SUBROUTINE  C0RD(N,S7,TH,X,Y,KPK) 

COHHON  /A4/  AN(10),ANP(10),ANPP<10) 

CALL  BOOY(ST,N,KPK) 

X=0.0 
Y  =  0.0 

DO  23  J=1  ,N 
C1=2*J 
C4=3.-C1 
CS4*C0S(C4*TH) 

SS4*SIN(C4*TH) 

X*X+AN(J)*CS4 
23  Y=Y+AN(J)»SS4 
END 

SUBROUTINE  BODY<ST,N,H) 

COMMON  /A2/  BN<25.10) 

COMMON  /A4/  AN(10),ANP<10),ANPP(10) 

COMMON  /Cl/  SP(50) 

M2=2»M-1 
N3=2*M-4 
M4=M2+1 
SPd  )  =  l  .0 
DO  II  L--2,M2 

11  SP(L)=SP(L-1 )*SI 
DO  22  L=M4,50 

22  SP(L)=0.0 
DO  12  J=1,N 
AN(J)=0.0 
ANP( J)=0.0 
ANPP(J)=0.0 
DO  13  L=1 ,M 

13  AM<J)=AN<J)tBN<L,J)<SP(L) 

DO  14  L=2,M 

C=L-1 

14  ANP(J)=ANP(J)+BN<L,J)*SP(L-1  )^*C 
DO  15  L=3,M 

C*(L-2)dL-1 ) 

15  ANPP( J)=AMPP(J)+BN(L,J)»SP(L-2) *C 

12  CONTINUE 
RETURN 
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NFILE  (CHXDDOUBDD  ON  DTNSRDC 

110  FILE  6(KIND=PRINTER,NAXRECSIZE=132) 

115  FILE  7<TITLE="CBL3D0PT%KlND=DISK,PR0TECTI0N=SAVE,MflXREC81ZE=22) 
120  FILE  8(TITLE>'‘D0UBD0PT",KIND«DISK,PR0TECTI0N=SALIE,NAXRECS1ZE=22) 
14C  FILE  9(KINDsREH0TE,NAXRECSIZE»22) 

160  FILE  11(TITLE=“DBLTAPE%KIND=DISK,PR0TECTI0N>SAVE,NAXRECSIZE«22) 

170  tRESET  FREE 

3500  C  PROGRAH  DOUBBD 

3600  IHPLICIT  REAL*8  (A-H,»,0-Z) 

3700  DIMENSION  VPP(250,250  ) ,1(3500) ,TP< 1500) ,XINTER(250 

3800  ),)0,3),SIG(500  ),INBEX(500  ,3),SY(2) 

3900  DIMENSION  NINTER(500  ) 

AOOO  DIMENSION  IP(500  ) 

A100  DIMENSION  0TEMP(250  ,12,10) 

4)10  DIMENSION  TITLE(12) 

4120  DIMENSION  TTH(50) 

4125  DIMENSION  MP(50,50) 

4130  COMMON  /Cl/  SE(250) ,XE<250) ,YE<250) ,THE(250) 

4140  COMMON  /C2/  S<50),X(50,50) ,Y(50,50) 

4145  COMMON  /C3/  NSTAT,NTH,NSNO,NTHNO 

4150  READ  (7,401)  (TITLE( J) ,J=1 ,12) 

4160  READ  (7,402)  N,KPK,BL 

4170  READ(7,405)  START, SF1NIS,NSTA7, NTH 

4171  NSMO=NSTAT  -1 

4172  NTHN0=NTH-1 

4)75  DO  200  I=1,NSM0 

4176  DO  200  J=1,NTHM0 

4180  READ  (7,426)  MP(I,J) 

4185  LP=MP(I,J) 

4190  READ  (7,427)  Ml ,S(I ) ,X( I. J) , Y( I , J) , TTH( J) 

4200  READ  (7,427)M2,S( 1+1 ) ,X( HI , J) , Y( 1+1 , J) ,TTH( J) 

4210  READ  (7,427)M3,S(I+)),X(I+),J+1),Y(I+I,J+1),TTH(J+1) 

4220  READ  (7, 427)M4,S( I ) ,X( I, J+1 ) , Y ( I , J+1 ) ,TTH( J+1 ) 

4230  READ  (7,427)M5,SE(LP) ,XE(LP ) , YE (LP) ,THE (LP ) 

4231  URITE(11,426)  MP(I,J) 

4232  NRITEdl  ,427)  Ml  ,S(  I )  ,X  (I,  J) ,  Y(  I ,  J)  ,T  FIK  J) 

4233  URITEdI ,427)N2,S(I+1),X(I+1 ,J) ,Y( J+) , J) ,TTH( J) 

4234  URITEdI ,427 )M3,S( 1  +  1 ),X( 1  +  1 , J+1 ) , Y( 1  +  1 , 3+1)  ,TTH( J+1 ) 

4235  URITEdI ,427)M4,S(I),X(I,J+1 ),Y(I,J  +  1),TTH(J+I ) 

4236  URITEdI ,427 )M5,SE(LP),XE(LP ), YE (LP),THE(LP) 

4240  200  CONTINUE 

4400  NP=(NSTAT-1 )*(NTH-1 ) 

4500  IF(NP.GT.250)  STOP 
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4501  URITE(8,402)  NP 

4502  URITE(8,406)  NSMO.NTHMO 

4510  DO  201  1-1,250 

4520  DO  201  J-1,10 

4530  DO  201  K<1,3 

4540  201  XINTER<1,J,K)=0.0D00 

4700  CALL  XPAPSlilP, OPP.T, TP, XINTER,SI6,SY,VTEMP,NINTER, INDEX) 

4800  SY(1)=1.0 

4700  SY(2)=-1.0 

5000  FPI-12.5664D00 

5100  DO  10  1=1, NP 

5200  L»<I-1)**3+1 

5300  K=<I-t)=*7+1 

5400  TP(L)=T<K) 

5500  TP(L  +  1 )=T(K+1 ) 

5400  TP(L+2)=T(K+2) 

5700  SI6(I)=-TP<L)*12.5464D00 

5800  DO  10  J=1 ,MP 

5900  VPP(1,J)=0.0 

4000  10  CONTINUE 

4100  NUNB=0 

4200  DO  20  1  =  1, NP 

4300  NUHB=HAX0(N1NTER{1),NUNB> 

4400  20  CONTINUE 

4500  DO  21  ITER»1,10 

4400  DO  21  1=1, NP 

4700  INDEX(I,1)=NINTER(I)-;(TER 

4800  0TEHP(I,12,ITER)»DFL0AT<M1N0<1NDEX<I,1),0))+1.0D00 

4900  VTENP<I,12,ITER)»DNAX1<VTEHP(1,12,ITER),O.ODOO) 

7000  21  CONTINUE 

7100  URITE<4,1001)(VTE«P(I,12,1 ),I=1,NP) 

7200  URITE(4,1001)(VTE«P(],12,3),1=1,NP) 

7300  DO  1  1=1, NP 

7400  DO  23  J=1,NP 

7500  VTENP<J,11 ,1)=0.0D00 

7400  23  CONTINUE 

7700  VTENP<I,11,1)=1.0D10 

7800  L*<I-1)*3+1 

7900  DO  4  KY=1,2 

8000  24  DO  2  ITER=1,NUNB 

8100  22  DO  3  J=1,NP 

8200  K»(J-1  )-*7+1 

8300  VTE«P( J,KY,ITER)=TP<L)-XINTER(J,ITER,1 ) 

8400  VTENP(J,KY,ITER)=VTENP<J,KY,ITER)-»VTEHP(J,n,l  ) 

8500  VT£HP(J,KY+2,ITER)=TP(L+1)-XINTER<J,ITER,2):«SY(KY) 

8400  VTEHP(J,KYt4,ITER)=TP(L+2)-XINTER(J,lTER,3) 

8700  VTEMP(J,KY+4,ITER)=VTENP(J,KY,ITER)<»2+VTEMP(J,I<Y+2, ITER)* ♦2 

8800  1+VTEHP(J,K'Y*4,ITER)**2 

8900  VTEHPI J,KY+8,ITER)=DSQRT<VTEHP<J,KY+4,nER)) 

9000  VTEHP(J,KY*8,ITER)=VTEHP<J,KY+8,ITER)*VTENP(J,KY+6,ITER) 

9100  VPP(I,J)=0PPn,J)  +  (VTENP<J,KY,ITER)*TIK+3)+VTEMP(.J,KY*2,I  rER)*SY( 
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1Y)*T(K+4)+MTEMP(J,KY*4, ITER) *T(K+5))*T<K+A)/VTEHP(J,Ky+8, ITER) 
2»VTEMP(J,)2,ITER) 

3  CONTINUE 
2  CONTINUE 

4  CONTINUE 

DO  17  ITER-I.NUNB 
DO  ie  KY>1,2 
DO  7  J=1,MP 
K=(J-1)*7*1 

gitNP<J,KY+4,ITER)»TP(L+2)*XINTER(J,lTER,3) 

VTEHP<J,KY+6,ITER)=VTEHP(J,KY,ITER)*<2+VTEMP(J,KY+2,nER)»*2 

1+UTE«P<J,KY+4,ITER)**2 

VTEHP(J,KY+B,ITER)=DSQRT<VTEI1P(J,KYti,lTER)) 

VTEMP ( J, KY+8, ITER)=VTENP( J,KY+8, ITER )»VTEHP(J,KY+/i, ITER) 
yPP(I,J)=UPP(I,J)*(UTEHP(J,KY,ITER)<T(K+3)+VTEMP<J,KY+2,l rER)*T(K> 
14)*SY(KY)+VTEHP<J,KYM,IT£R)*<-T(K+5)))/VTEHP(J,KY+8,ITER)  ♦T(K+6) 
2*yTEHP< J,12,ITER) 

7  CONTINUE 
18  CONTINUE 
17  CONTINUE 

1  CONTINUE 
DO  12  1=1, NP 
VPP<I,I)=0.0 
VT£HP(I,11,1)=O.ODOO 
12  CONTINUE 
DO  8  1=1, NP 
DO  6  J=1.NP 

VPP(I,J)=VPP(l,.J)/DFLOAT(N]NTER<J)) 

6  CONTINUE 

8  CONTINUE 

DO  15  1=1, NP 
SUN=O.ODOO 
DO  14  J=1,NP 
SUN=SUN+VPP<I,J) 

14  CONTIllUE 
VTEHPd.l  1 ,1  )  =  SUN 

15  CONTINUE 

DO  9  1*1, NP 

VPP(I,])=-FPI-VTE»P<I,11,1) 

9  CONTINUE 

WMTE(6,1001  i(VPP(l,I),T=1  ,NP) 

URITE(6,1001 )(VPF(I,1),I=1,NP,5) 

URITE  (11,1002)  (VPP(I,I),I=1 ,NP) 
URITE(6,1003)(NINTER<I),I=1,NP) 

URITE(6,1003)  NUKB 

URITE(6,1001 )(( (XINTER(I,J,K) ,K  =  1 .3),J=I ,3),yTEMP(I,1 1 .1 ),  [  =  1  ,NP) 
CALL  DECONP(NP,NP,VPP,IP) 

CALL  SOLVE(NP,NP,VPP,SIG,IP) 

URITE(6,1000) 

DO  5  1=1, NP 
L  =  (I-1  )«3 


r — — - . . . . . ^ 


142S0 

URnE(B,400)  (-TP(L+1),TP(L*2),TP(L+3),-SIG(I)) 

14300 

5 

URITE<6,1001 )  (TPIL^I  ),TP(L*2),TP<L*3),S16(I)) 

14400 

WRITE  (11,1002)  <<T(7«I-7+J),J«1,7),SIG(I),I*1,NP) 

14410 

STOP 

14500 

1002 

F0RNAT<8D10.4) 

14600 

1000 

FORMAT! 'r,20X,  POTENTIAL") 

14700 

1001 

FORMATdH  ,10012.5) 

14710 

400 

F0RNAT<)0E12.5) 

14810 

401 

FORMAT (12A6) 

14820 

402 

FORHAT(2I10,1F10.5) 

14840 

405 

F0RMAT(2F10.5,2I10) 

14841 

406 

F0RMAT(2110) 

14850 

426 

F0RHAT(1I5) 

14860 

427 

F0RMAT(1I5,4F10.5) 

14890 

1003 

F0RHAT<8I10) 

14900 

END 

15000 

SUBROUTINE  MATINS! A,NR,Nt ,B.NL,H1 , DETERM, ID, INDEX ) 

15100 

C 

PIVOT  METHOD 

15200 

c 

MATRIX  INVERSION  UITH  ACCOMPANYING  SOLUTION  OF  SINUL.  EO 

15300 

c 

PIVOT  METHOD 

15400 

c 

FORTRAN  IV  SINGLE  PRECISION  UITH  ADJUSTABLE  DIMENSION 

13500 

c 

FEBRUARY  1966  S  GOOD  DAVID  TAYLOR  MODEL  BASIN  AM  MAT4 

15600 

c 

UHERE  CALLING  PROGRAM  MUST  INCLUDE 

15700 

c 

DIMENSION  A<  ),  B<  ),  INDEX!  ) 

15800 

c 

N  IS  the  ORDER  OF  A 

15900 

UOOO 

16100 

16200 

16300 

16400 

16500 

16600 

16700 

16800 

16900 

17000 

17100 

17200 

17300 

17400 

17500 

17600 

17700 

17800 

17900 

18000 

18100 

18200 

18300 

18400 


«  IS  THE  NUhBER  OF  COLUMN  VECTORS  IN  B(MA<  BE  0) 

DET'ERH  UILL  contain  DETERMINANT  ON  EXIT 
ID  UILL  BE  SET  BY  ROUTINE  TO  2  IF  HAIK'IX  A  IS  SINGULAR 
1  IF  INVERSION  UAS  SUCCESSFUL 
A  IHE  INPUT  MATRIX  UILL  BE  REPLACED  BY  A  INVERSEE 

B  THE  COLUMN  VECTORS  UILL  BE  REPLACED  BY  CORRESPONDING 

SOLUTION  VECTORS 
INDEX  UORKING  STORAGE  ARRAY 

IF  IT  IS  DESIRED  TO  SCALE  THE  DETERMINANT  CARD  MAY  BE 

DELETED  AND  DETERM  PRESET  BEFORE  ENTERING  THE  ROUTINE 

IMPLICIT  REAL»8  (A-H,$,0-Z) 

EQUIVALENCE  (IROU.JROU),  ( ICOLUM, JCOLUM) ,  (AMAX,  T) 

DIMENSION  A(NR  ,NR  ),B<NR  ,NC  ),INDEX<NR  ,3) 

DIMENSION  VT(SOO),ILI (500),3UAP<500) 

INITIALIZATION 

N=N1 

MsMI 

DETERM  =  1.0 
DO  20  J=1,N 
20  INDEX(J,3)  =  0 
DO  550  1  =  1, N 

SEARCH  FOR  PIVOT  ELEMENT 


ina 


I 


18500  C 
1B600 
18700 
18800 

18900  60 

19000 

19100  80 

19200  85 

19300 
19400 

19500  100 

19600  105 

19700 
19800 
19900  C 
20000 
20100  C 
20200  C 
20300 

20400  140 

20500 

20600 

20700  201 

20800 

20900 

21000  202 
21100 

21200  200 
21300 

21400  210 

21500 

21600  251 

21700 
21800 

21900  252 

22000 

22100  250 

22200  C 
22300  C 
22400  C 
22500  310 

22600  C 
22700  330 

22800 

22900  350 

23000 

23100  360 

23200  370 

23300  C 
23400  C 
23500  C 


ANAX  >  0.0 
DO  105  J=1,N 


IF(INDEX(J,3)-1) 

60, 

105, 

60 

DO  100  K=1,N 

IF(INDEX'K,3)-1) 

80, 

100, 

715 

IF  (  ANAX  -DA8S  (A(J,K)))  85,  100,  100 

IROU=J 

ICOLUH  =K 

AHAX  •  DABS  (A(J,K)) 

CONTINUE 

CONTINUE 

INDEX(  :iC0LU«,3)  =  INDEX!  IC0LUN.3)  H 
INDEX(I,1 I^IROU 


'‘:j£Xii,2)  =  IC0LUH 

INTERCHANGE  ROUS  TO  PUT  PIVOT  ELENENT  ON  DIAGONAL 

IF  (IROU-lCOLUfI)  140,  310,  140 
DETERN=-DETERH 
DO  201  L=1,N 
SUAP(L)’=A(IROU,L) 

CONTINUE 

DO  202  L«I,N 

A(IROU,L)^A(ICOLU«,L) 

CONTINUE 

DO  200  L'-1,N 

A(ICOLUN,L)-SUAP<L) 

IF(H)  310,  310,  210 
DO  251  L=l,  N 
SUAP(L)^-B(iROU,L) 

CONTINUE 

DO  252  L=1,M 

B(IROg,L)^B(ICOLUn,L) 

CONTINUE 

DO  250  L^l  ,H 

B(ICOLUN,L)=SUAP(L) 

DIVIDE  PIVOT  ROU  BT  PIVOT  ELEMENT 

PIVOT  ^A(ICOLIJN,ICOLON) 

DETERN  =  [iETERH*PlVOT 
A(IC0LUM,JC0LUM>=1.0 
DO  350  L  =  1  ,N 

A(  ICOl.UM.L  )=A(  IC()LUM,L)/PIVOI 
IF(N)  380,  380,  360 
DO  370  L=1,M 

B(ICOLUM.L)'=B(lCOLUrt,L)/PIVOT 
REDUCE  NON-PIVOT  ROUS 
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23600 

23700 

23800 

23900 

24000 

24100 

24200 

24300 

24400 

24500 

24600 

24700 

24800 

24900 

25000 

25100 

25200 

25300 

25400 

25500 

25600 

25700 

25800 

25900 

26000 

26100 

26200 

26300 

26400 

26500 

26600 

26700 

26800 

26900 

27000 

27100 

27200 

27300 

27400 

27500 

27600 

27700 

27800 

27900 

28000 

28100 

28200 

28300 

28400 

28500 

28600 


380  DO  550  L1»1,N 
1L1(L1)=>L1 

IF(1L1(L1)-IC0L0«)  400,  550,  400 
400  VT(L1)=A(L1,IC0LUM) 

A(L1,IC0LUH)»0.0 
DO  450  L*1,N 

450  A(L1,L)=A(L1 ,L)-A(1C0LUH,L)4VT(L1 ) 

IF(H)  550,  550,  460 
460  DO  500  L=1,H 

500  D(L1,L)=B(L1,L)-B(1C0LUH,L)»VT(L1) 

550  CONTINUE 
C 

C  INTERCHANGE  COLUMNS 
C 

DO  710  I»1,N 
L=M+1-I 

IF  (INDEX(L,t ) -INDEX<L,2))  630,  710,  630 
630  JROU=INOEX(L,() 

JC0LUH=INDEX(L,2) 

DO  706  K=1,N 
SUAP(K)=A(K,JRQU) 

706  CONTINUE 

DO  707  K=1,N 
A(K,JROg)=A<K,JCOLUM) 

707  CONTINUE 

DO  705  K-1,N 
A(K,JCOLUM)-.SUAP(K) 

705  CONTINUE 
710  CONTINUE 

DO  730  K  =  1.N 

IF<INDEX<K,3)  -1)  715,720,715 
720  CONTINUE 
730  CONTINUE 
ID  =  1 
810  RETURN 
715  ID  =  2 

GO  TO  810 
END 

SUBROUTINE  SOLVE(N,NDIM,A,B,IP) 

IMPLICIT  REAL*8  (A-H, 4,0-2) 

DIMENSION  AINDIM  ,NDIM  ),B<ND1M  ),IP(NDIM  ) 

IF(N.EQ.I)  GO  TO  9 

NN1=N-1 

DO  7  K=1,NM1 

KP1=K+1 

N=IP<K) 

T=B<M) 

B(M)=B<Kj 

B(K)=!T 

DO  7  1^KP1,N 
7  B(I)=B(I)+A(I,K)*T 
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28700  DO  8  KB>1,NH1 

28800  KNt-N-KB 

28900  K«KH1+1 

29000  B(K>>B(K)/A(K,K) 

29100  T»-B(K) 

29200  DO  8  1>1,KN1 

29300  8  B(I)=B(I)  ♦A(I,K)=*7 

29400  9  B(n=B(t)/A(1,1) 

29500  RETURN 

29600  END 

29700  SUBROUTINE  XPAPS(NP,yPP,T, TP, X1NTER,SIG,SY,VTEMP,N1NTER, INDEX) 

29705  IMPLICIT  REAL*8  <A-H,«,0-Z) 

29710  COMMON  /Cl/  SE<250),XE(250),YE(250),THE(250) 

29720  COMMON  /C2/  S(50) ,X(50,50),Y<50,50) 

29730  COMMON  /C3/  NSTAT ,NTH,NSI10,NTHH0 

29900  DIMENSION  OPPINP  ,NP  ) ,T(3500) , TPdSOO) ,X1NTER<NP  , 

30000  110,3),SIG(NP  ),INDEX<NP  ,3),SY(2) 

30100  DIMENSION  NINTERINP  ) 

30200  DIMENSION  VTEMPINP  ,12,10) 

30300  URITE(6,)000)  NP 

30305  L=0 

30410  DO  200  I=1,NSM0 

30420  DO  200  J-),NTHNO 

30430  L=L+) 

30440  VPP<L,1 )--S<I) 

30450  VPP(L,2) =X(I,J) 

30460  VPPa,3)--Y<I,J) 

30470  VPP(L,4) =-S(I  +  1 ) 

30480  0PP(L,5)=X(I+1 ,J) 

30490  VPP(L,6)=Yntl  .J) 

30500  VPP(L,7)=-S<J+1) 

30510  VPP(L,8)=X(IH,J+1) 

30520  VPP(L,9)=Y(I+I  ,J+1) 

30530  VPPa,10)=-S(I) 

30540  VPPd.lI  )^X<I,3+I) 

30550  VPP(L,12)=Y(1,J+I) 

30560  0PP(L,13)=-SE(L) 

30570  VPP<L,14)=XEa) 

30580  VPP(L,I5)=YE<L) 

30584  yRITE( I ) ,402)1,J,L 

30585  URITEd I ,403)(yPP<L,IP),lP=1.15) 

30586  402  F0RNAT(3I5) 

30587  403  F0RMAT(5F10.5) 

30590  200  CONTINUE 

30600  DO  1  I=1,NP 

30700  L=(I-1)*3 

30800  DO  I  J=l,3 

30900  TP(L*J)=ypP(J,12+J) 

31000  1  CONTINUE 

3)100  DO  1  I  Id  ,NP 

31200  VTEMPd,  1.1  )^VPP<i,10)-VFP(2,4) 


31300  VTEHP(1,2,) )=VPP(I,1)-VPP<I,7) 

31400  VTEHP<I,3,1 )=VPP(1,11 )-VPP(I,5) 

31500  VTE«P(I,4,1)=VPP<I,2)-VPP<I,8) 

3U00  VTEHP(I,5,1  )=VPP(],12)  -VPP(I,4) 

31700  VTEHP(I,6,1 )=VPP(1,3)-VPP<I,9) 

31800  VTEHP( 1,4,2)=  VTE«P( I ,4, 1 )=*VTE«P< I ,5, 1)-VTEHP( J , 3, 1 ) *V TEMP ( I ,6, 1) 

31900  VTEHP(  1,5,2)=  VTEMPd ,  1 , 1  )*VTE«P<  1 ,6, 1  )-VTE(1P ( 1 ,2, 1  )*VTErtF  (  1 ,5, 1 ) 

32000  VTE11P(I,6,2)=  VTE(1P(  1 ,2,  t  )*VTEHP( 1 ,3, 1  )-VTEHP ( 1 , 1 , 1  XVTEMP ( 1 , 4 , 1  ) 

32100  VTEHPd,)  ,10)=DSQRT(VTEMP(I,4,2)»*2+MTErtP(:i,S.2)  **2+VTEttP(l,6,2;  M 

32200  12) 

32210  URITEdl  ,400)I,(VTE«Pd,J,1  ),J=l,6),(VTEMPd,J,2j 

32220  URITEdI  ,401 )  VTEHPd,1,10) 

32230  400  F0RhAT(1I5,/6n0.5,/3F10.5) 

32240  401  F0RHAT(1E15.8) 

32245  V=VTEHPd,1,10) 

32250  TEST=DABG(y) 

32260  IFdEST  .LT.1.0E-  8)GOTO  11 

32300  VTENPd,4,2)=VTE«Pd,4,2)/VTE«Pd,1,10t 

32400  VTEHPd,5,2)=VTEHPd,5,2)/VIEMPd,1,10) 

32500  UTEMPd,6,2)=VTEHPd,6,2)yVTEHPd,1,10) 

32600  VTE«P(I,7,2)=.5*yTE«P( 1,1 ,10) 

32700  C  G3  COMPUTE  C00TE«P(1,1, 10)N£VTEMPd, 1,10)  PTS,  ( VTEMP  ( 1  .  I  .  1  '  , I 

32800  VTEMPd,1 ,1  )  =  (VPP(I,1  )  +  VPPd,4)+VPPd,7)+VPPd,10)  )t.25 

32900  UTEMPd,2,1)  =  (UPPd,2)+VPPd,5)+UPPd,8)+ypPd,  11 

33000  VTEMPd,3,1  )  =  (VPP(l,3)+VPPd,6)+UPPd,9)+VPPd,12)  i 

33100  UTEMP(  1,4, 1  )=VTEMPd,4,':)*(  VTEMPIl,  1,1  )-ypP(  1.4)  )>OrEnP  11,5,2  I  H 

33200  1UTEMP(I,2,1  )-VPPd,5))tVTEMPd,6,2)*(VTEHPd,3,1)  -UPPd  .6)  ) 

33300  VTEHPd,1 ,3)=VTEMPd,4,2)*VTEMPd,4,1 ) 

33400  UTEMPd,2,3)=VTEMPd,5,2)^»VTEMPd,4,1) 

33500  VTEMPd,3,3)=VTEMP(I,6,2)*gTEMPd,4,1 ) 

33600  VTEMPd,1 ,1  )=VPPd,4)+UTEMPd,1,3) 

33700  VTEMPd,2,1  )=VPP(I,5)+yTEMPd,2,3) 

33800  VTEMPd,3,1  )=VPPd,6)+yTEMP(I,3,3) 

33900  VTEMPd,4,1  )=yPPd,7)-VTE«Pd,1,3) 

34000  VTEMPd,5,1  )=VPP(  1,8)  -UTEMP (1,2,3) 

34100  VTEMPd,6,1  )=VPP(I,9)-yTEMPd,3,3) 

34200  VTEMPd,7,1  )=VPPd,10)+yTEf1Pd,1,3) 

34300  VTEMPd,8,*  )=VPPd,11  )+VTEMPd,2,3) 

34400  VTEMPd,9,1  )=VPPd,12)+yTEMPd,3,3) 

34500  VTEMPd,10,1  )=VPP(I,1  ) -V  TEMP  Cl .  1 ,3 ) 

34600  VTEMP(I,1 1 ,1  )=UPPd,2)-yTEMPd,2.3) 

34700  VTEMPd,12,1  )=VPPd,3)-yiEMPd,3.3) 

34800  C  G4  COMPUTE  CENT VTEMP ( 1 , 1 ,  lOOIP  ( VTEMP ( 1 . 1  ,2 )  ,UTEMP (  1 , 2 , 2  ) ,  V TEM 

34900  345  VTEMPd , 1 ,3) =VTEMP( 1 ,4 , 1 ) -VTEMPl 1 , 1 , 1 ) 

35000  MTEMPd,2,3)=VTEMP(I,10,t  )-VTEMPd,1 , 1) 

35100  VTEMP(I,3,3)=VTEMP(I,5,1  )-VT£MPd,2,1 ) 

35200  VTEMP(I,4,3)=VTEMFd,l  1 , 1  ) -U 1  EMP(  1 , 2 , 1 ) 

35300  VTEMP(I,5,3)=UTEMP(  1,6,1  )  -VTEMPd, 3, 1 ) 

35400  VTEMPd,6,3)=VTEMPd,12.l  ) -VTEMPd  ,3 , 1 ) 

35500  VTEMPd,!  ,4)=VTEMP(  1,3,3  dVTEMPd.6, 3) -VT£rtP(  1 .4,3  i  *011  Hid  .s,  i  i 

35600  VTEMPd,2,4)=VTEMPd,5,3)*UTEMPd,2,3)  -VTEMPd,  i ,  3  in'1  i.MP  d  ,  o .  3  i 


J5700 

3S800 

35900 

36000 

36100 

36200 

36300 

36400 

36500 

36600 

36700 

36800 

36900 

37000 

37100 

37200 

37300 

37400 

37500 

37600 

37700 

37800 

37900 

38000 

38100 

38200 

38300 

38400 

38500 

38600 

38700 

38800 

38900 

39000 

39100 

39200 

39300 

39400 

39500 

39600 

39700 

39800 

39900 

40000 

40100 

40200 

40300 

40400 

40500 

40600 

40700 


VTEhPn,3,4)=VTENP(I,1,3)*VTEMP(l,4,3)-V7EHP(I,2,3)»VTEHP<l,3,3) 
VTEHP<I,7,3)=DSQRT(VT£«P(I,1,4)**2+VTENP(I,2,41*»2+V7E«P(I,3,4):#=»2 
1 ) 

348  VTEMP(I,3,2)=(VTEHP(I,6,1 >+VTEHP(I,12,1)+(VTEHP(I,7,3)»VTEMP(l,3,1 
1 )+( VTEMP( I, 1 ,10)-VTE«P( 1,7,3) )*VTEHP( 1,9,1 ))/VTEHP<I,1 ,10) )/3. 
VTEMP(I,2,2)=(VTEHP(I,5,1)+VTEHP(I,ri,1)+(VTEMP<I,7,3)*VTEHP(],2,1 
1)+(VTE«P< I, I, I0)-VTE«P( I, ?,3))»VTE«P( I, 8, 1))7VTEMP( 1,1, 10) )/3. 
VTEMP<I,1 ,2)=(VTEHP(I,4,1 )+VTEHP(I,10,1 )+(VTEMPn,7,3)*VTEMP(I,1,1 
1 )+(VTEHP<I,1 ,10)-VTE«P(I,7,3))*VTEHP(I,7,1 ))7VTENP(I,1 ,10) )/3. 

11  CONTINUE 

H3  ST0VTEMP(I,1 ,10)E  CENTVTEHP  ( .1 , 1 , 1 0  )01D  AND  AVTEMP  ( 1 , 1  , 1 0  )EA 
DO  10  1=1, NP 
K=(I-n*7 


950 


10 


999 


997 

998 

70 


T(K+t )=VTEHP(I,1,2) 

T(K+2)=VTEHP(I,2,2) 

T(K  +  3)=VTErtP(  1,3,2) 

H4  STOVTErtPI  l,1,10)E  NOOTErtPI  J .  1 , 10)«AL  OEL'TOVTEMP <1 . 1 , 1 0 ) 
T(K  +  4J=VTEf'iP(I,4,2) 

T(K+5)=VTErtP(I,5,2) 

T(K+6)=VTEHP(1,6,2) 

T1K+7)=0TErtP(I,7,2) 

CONTINUE 


DO  70  1=1, NP 

yTEMP(:i,1,5)  =  (VPP(I,4)»VPP<I,7)  )  »0.5 

VTEHP(I,2,5)=(VPP(I,5)»VPP(I.8))t0.5 

VTEMP(I.3,5'  =  (MPP(1,6)  tVPPd,?) )  *0.5 

VTEWP  ( 1 ,  1 , 6 )  =  ( '.'p;  (1,1)  iVPP i  I , )  U  ) )  *0. 5 

yTEHP(I.2.6)  =  (VPP(I,2)»VPP(I,11)  •♦0,5 

VTEMP (1 , 3 . 6 )  =  ( OPP ( 1 , 3 ) +MPP ( 1 , 1 2 ) )  *0 . 5 

NINTFPd  )--.,0TEHPd,1 ,6)  -UTENPd.l  ,5))  f'2/(VTEHP(I.7 

NlNTERd)=MAX0(NlNTER(I),1) 

NINTER(I)=MINO(NlNrER(i),») 

NUrtP  =  NlNlER( I ) 

VTEMP(I,1  ,6)  =  (MTEHP(I,1 .6) -OTENP (  1 , 1 , 5  ) ) /NINTER ( I ) 
VTEMP(I,2.6P (yTEMP(I,2,6)-OTENP(1.2.5)  )/NINTER(I) 
VTEflP( 1,3.6 )  =  (yTENP(I,3,6)-VTEMP(  1 , 3 . 5 d /  iJINTER ( I ) 
DO  999  NIX=1 ,NUHD 
DNIX=DFL0AT(NIX)-0.5D00 

XINTER(  I,NIX,  I  )=VTEMP<  1,1 ,5)  ♦OTEMPd  ,  I  .iji^DNlX 
XINTER(I,NIX,2)=VTEMP<I,2.5)  tVTEMPa,2,6)iDf1IX 
XINTER(I,NIX,3)=VTEMP(I,3,5)+yTEHP(l.3,6)»DNIX 
CONTINUE 

IF(NINTER(I).NE,1  )  GO  TO  990 
DO  997  Nrx  =  1.3 

XINTERCl,! ,N1X) =VTEMP(I,NIX,2) 

CONTINUE 

CONTINUE 

UX( I)=UPP(I,1 )-VPP(l,4) 

CONTINUE 

IFiLlN.LT.ftO)  GO  10  80 
URITE  (6,7) 
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40800 

40900 

41000 

41100 

41200 

41300 

41400 

41500 

41600 

41700 

41800 

41900 

42000 

42100 

42200 

42300 

42400 

42500 

42600 

42700 

42710 

42720 

42730 

42740 

42750 

42760 

42770 

42780 

42790 

42800 

42810 

42820 

42830 

42840 

42850 

42860 

42870 

42880 

42890 

42900 

42910 

42920 

42930 

42940 

42950 

42960 

42970 

42980 

42990 

43000 

43010 


URITE  (6,8) 

LIN=0 

C  80  L1N=L1N41 

00  55  1=1, NP 
N=(I-1 )»7+1 

55  URITE  (6,6)  T(«) , T(H+1 ) , T(H+2) ,T(M+3) ,T (M+4 ) ,T (H+5 ) , T (M+6 ) 

4  CONTINUE 
NQE=NP 
NQ7=NQE*7 
URITE(6,28)  NP 

6  FORMAT  (10D12.5) 

7  FORMAT (38H1  INPUT  DATA  TO  POTENTIAL  FLOU  PROGRAM) 

8  F0RMAT(4H0  , 2HXP, 1 0X,2HYP, 10X,2H2P, 10X,2HXN , t OX, 2HYN. 1 0 < .2HZN 
1,10X,2HAQ) 

24  FORMAT  (1H  ,I1,19H  PLANES  OF  SYMMETRY) 

28  FORMAT  (33H0T0TAL  NUMBER  OF  QUADRILATE  =  ,15) 

1000  F0RMAT(10I5) 

1001  F0RMAT(16FS.1 ) 

RETURN 

END 

SUBROUTINE  DECONP(N,NDIM ,A, IP) 

IMPLICIT  REAL»8  (A-H,4,0-Z) 

DIMENSION  A(NDIM,NDIH),IP(NDIM) 

IP(N)=1 

DO  6  K=1,N 

IF(K.EQ.N)  GO  TO  5 

KP1=K+1 

M=K 

DO  1  I»KP1,N 

IF(DABS(A(I,K)).6T.DABS(A(rt,K)>)  M=I 

1  CONTINUE 
IP(K)=M 

IF(N.NE.K)  ;[P(N)=-IP<N) 

T=A(M,K) 

A(M,K)=A(K,K) 

A(K,K)=T 

Ifd.EO.O.)  GO  TO  5 
DO  2  I=KP1,N 

2  A(I,K)=-A(I,K)/T 
DO  4  J=KP1,N 
T=A(M,J) 

A(M,.J)=A(K,J) 

A(K,J)=T 

IF(T.EQ.O.)  GO  TO  4 
DO  3  I=KP1  ,N 

3  A(I,J)=A(1,J)+A'I,K)»T 

4  CONTINUE 

5  IF(A(K,K).EQ.O.)  IP(N)=0 

6  CONTINUE 
RETURN 
END 
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100  FILE  5(K1ND=REM0TE,MAXF(ECSIZE=22) 

110  FILE  6(KIND=PRINTER,MAXRECSIZE=132) 

120  FILE  7(TITLE  =  '‘TBLIPCOPT",KI«D=01SK,PROTECTION=SAOE,f1AXRECSIZE=22) 

130  FILE  8(TITLE="TBL3D0PT“,KIRD=DISK,FILETYPE=7) 

140  FILE  9(KIND=REH0TE,f1AXRECSIZ£=22) 

150  FILE  10(TITLE="TBL3DINP“,KlND=DISK,FILErYPE=7) 

160  FILE  1 1  (TnLE  =  "TBLSAOE",KIND=IiISK,PROTECTION=SAVE,MAXRECSIZE-^22) 

165  FILE  12(TITLE="THREEDPHI",KIND=DISK,FILErYPE=7) 

170  iRESET  FREE 

1010  C  PROGRAM  TBLIPC 

1030  C  PROGRAM  COMPUTES  DERIOATIVES  OF  OELOCITIES  ALONG  THE  OR rHOGONAL 
1040  C  COORDINATES. 

1050  DIMENSION  T I TLE ( 1 2 ) . TITL< 3 ) 

1060  DIMENSION  X (3, 1 20 ) , Y (3. 1 20 ) , THI 3 . 1 20) .UP ( 3 . 1 20 ) , U f ( 3 . 1 20 ) ,S( 3 , 1 20 ) 

1  070  DIMENSION  XKP  ( 3 , 1 20 ) , XKT  ( 3, 1  20 )  ,H(3, 1  .:0) ,  F  ( 3 , 1 20 ) , G  ( 3 , 1 20  > 

1030  DIMENSION  JJ(3),SS(3) 

lOvO  COMMON/SPLIN/SF(30,60).SPHI<30.60).SPHP(30,60),SPHPP( 30.60) , 

1100  ♦  DTP(30,60) 

1110  COMMON/VELUC/UP.UT.S.IH 

1120  READ  (8.401)  ( T ITLE( J ) , J=1 . 1 2) 

1130  URITE(6,401)  < TITLE! J) ,3=1 ,12) 

1140  URITE(7,401)  ( TITLE! J) .3=1 .12) 

1145  URITE(9.401)  ( TITLE!3) ,3=1 ,12) 

1180  READ  (8,402  )  N.KPK.BL 

1190  URITE (6,402  )  N.KPK.BL 

1200  URITE(7,402  )  N.KPK.BL 

1205  URITE(V.402'  N.KPK.BL 

1210  READ  (G.405)  ST ART .SF INS ,NSTA T . N TH 

1220  urite(6,405)  start. spins, nstai, nth 

1  230  URITE(  7,405)  S TART .SPINS .NST A  I ,N 1 H 

IJi5  URITE(  9,405  )  S TART , SF INS ,NS TA T , N  I  H 

1240  PI0T=1 .57079682679 

; .50  EN=NIH-1 

1260  MTH=NTH-I 

1270  DT=PIOT/EN*( -1  ,0) 

1280  DTI  =  l.0/IiT 

1  290  UR  TIE (9, 408) NTH, BT, DTI 

1300  DTF=0.5»DT1 

1310  3=1 

1320  K=2 

1330  L=3 

1331  URIIH9,406) 

:)3J  URITE(9.407) 

13  35  READ  ('3,404)  NS 

1338  IF(NS.E(J.0)  GU  TO  300 
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READ  (12,403)NS,NT 

URITE(6,403)NS,NT 

CALL  SPOrEN(NS,NT,DrH,NTH) 

TEST=SP(),1) 

300  CONTINUE 

DO  205  1=1,2 

301  CONTINUE 

READ  (0,427)  JJ(I),SS(I) 

UR1TE(6.427)  JJ(I),SS(I) 

D0200  IT=1.NrH 

READ  (8.408)  NUUfl ,  A  ( 1 .  1 1 ) .  Y  ( I ,  IT  )  ,TH(  1 . 1  f )  .  U  ,0 
URITE(6.408)  NDUfI .  X  ( I .  I T ) .  Y  ( I ,  I  T  )  .THY  1 , 1 T )  ,U ,  0 
READ  (8,408)  NDUd , U , UP ( I , IT ) ,U I ( 1 , IT ) , UN . S ( 1 , 1 T ) 

URnE(6.408)  NDUrt.U.UPd.IT)  ,UT(I.IT).UN.b(i .  IT) 

READ  (3,408)  NDUrt,XKP(  I,I  I ) ,  XKT  ( I ,  I T  ) .  H(  I ,  I  f )  .  I-  ( I .  j  1  ) ,  (;.  1 . 1  I  ) 
UR1TE(6.408)  NIiUM.XKP(I,IT),XKT(I,IT),H(l,ir).l-(I,i:,T),G',  l,n  i 
200  CONTINUE 

NSTAr=NSTAT-t 

IFdEST.GE.SSd))  GOTO  301 
NSTAT=NSTAr+1 
205  CONTINUE 

IP(NS.EQ.O)  GO  ro  302 
CALL  EVALVO(NS.DTH,NTH,, ) 

CALL  EVAL00(NS,DTH,N;H,2) 

302  CONTINUE 

HI=1 .0/H(2,1 ) 

DTIG=DTI/(i(l  .1  ) 

DUPDLP=(UP(2, 1 )-UP(1 .1 ))/(S(2,1 )-S(l , 1 ) ) 

DUPDLP=HI*DUPDLP 

DUPDL  I  =  OT  I G  (  UP(  1  , 2 )  -Up  (1,1)) 

DUTDLP=(UT(2,1  ) -U  I ( 1 . 1 ) )/ (S( 2 . 1 ) -b ( 1 . 1 ) ) 

DUTIiLP  =  HM‘DUT[iLP 
LUTDLT=IiTIG*(UT(  1  .2)-ljr(1  .1  )) 

URITE(7,427)  JJ(1),SS(1) 

URITE (6,400  )  S(  1  , 1  ) 

WRITE  ( <6,408  )  1  ,X(  1  ,1  )  .Y  ( 1  .1 ) ,  FH(  1 , 1  )  .UP(  1  . 1  )  .Li  I  .  1  . 1) 

URITE (7, 408)  1 . X ( I . 1 ) , Y ( I , 1 ) . TH( 1 , 1 ) . UP( 1 , I ) , UT ( 1 , 1 ) 
URITE(6,408)  2,S(1,1) . DUPDLP . DUPDLT , DU  I ULP , DU  T  DL  T 
URITE(7,408)  2,S(1 ,1 ), DUPDLP, DUPDLT . UU I DLP . DUIULT 
UR  HE (6, 408)  3,XKP( 1 ,1  ),XkI(l  ,1 )  ,H( 1 .1  ),F( 1 ,1 )  ,G( 1  .1 ) 

UR  HE  (7, 408)  3.XKP(1 ,1  ),XKT(1 ,1  )  ,H  ( 1 , 1  )  ,P  ( 1  .  n  ,  G 1  , 1 

DO  201  IT=2,MTH 

DS=1 .0/(S(2,IT)-3(1  ,H)) 

DS=DS/H(2,IT) 

DUPDLP=DSHUP(2,IT)-UP(1  .ID) 


116 


1800  DUrDLP^DS*(Ur(2,If )-UT( 1 , IT) ) 

1810  DTF6«DTF/G(1,1T) 

1820  DUPDLT=DTFG*(UP(1,1I+1)-UP(1,1T-1)) 

1830  DUTDLT=DTFG*(UT(1 ,1T+1)-UT(1 ,IT-1)) 

1840  URITE(6,408)  1  ,X( 1  , IT ) , Y ( 1 , 1 1) . TH( 1 , IT ) .UP ( 1,17 ) ,U T ( 1  , 1 f ) 

1850  UR  I TE (7, 408)  1  , X(  1  , IT ) , Y ( 1 , IT ) , TH( I . I T ) ,UP( I , I T ) ,U f ( 1 , 1 1 ) 

I860  URITE(6,408)  2,S( 1 , I f ) , DUPDLP, DUPDLT , DUTDLP.DUTDLT 

1870  URIfE<7,408)  2 ,S( 1 . IT ) , DUPDLP .DUPOLT , DUTDLP .DUTDLT 

1880  WRITE (6, 408)  3 , XKP( I , I T ) , XKT ( 1 , 1 T ) ,H( 1 , IT ) ,F ( 1 , IT  ) , 6( 1 , IT ) 

1  890  URITE(7,408)  T . XKP( 1 , 1 T ) , XKT( 1 , 1 T ) ,H( 1 , 1 1) ,F ( 1  , 1 1 )  ,G ( 1  ,IT) 

1900  201  CONTINUE 

1910  DS=1.0/(S(2,NTH)-S<1,NTH)) 

1  920  IiS  =  DS/H(2,NrH) 

1930  DUPIiLP-DS*(UP(2.NrH)  -UP(1  .NTH) ' 

1  940  DUTDLP=[iS»(UT(2,NTH)-UT(1  ,NTH) ) 

1  950  IiIIG  =  ini/G(1  .NTH) 

1 960  DUPDLT=0 1 IGf (UP( 1 .NTH) -UP< 1 .NTH) ) 

1970  [IUTDLT=^DT1G*(UU  1  .NTH)  'UT  ( 1  .(ITH) ) 

1980  WRITE (6, 408)  1 ,X ( I .NTH ) , Y ( 1 ,NTH ) , TH( 1 ,NTH ) .UP ( 1 .NTH ) .U1 ( 1 , N TH ) 

1990  WRITE <7. 408)  1 , X ( 1 ,NTH) . Y ( 1 . NTH) , TH ( 1 .NTH ) , UP t 1 .NTH) , U T i 1 .NTH ) 

2000  WRITE (6, 408)  2,S( 1 ,NTH) . DUPDLP , DUPDLT .UUTDLP ,DU TULT 

2010  URITE<7.‘.08)  2 .S(  1  .NTh )  .DUPULP  .DUPDL  T . DUTDI.P . UUTOLT 

2020  WRITE (6, 408)  3,XKP(1,NTH) ,XKT(1 ,NTH) .HU .NTH) ,F( 1 . N TH ) ,G( 1 , N TH ) 

2030  URI  IE  (7.408)  3 , XKP 1 . NTH ) . XKT ( 1  .NTH)  .HH  .NTH)  .1- ( 1  .NTH)  ,G(  1  .NTH) 

2040 

2050  C  OUTPUT  FOR  FIRST  PHI-STATION  IS  LOrtpLOED. 

2060 

.'('70  HO  202  IS=3.NSTAT 

2080  UKl  TE(,'.  427)  IJdO.SSdO 

2090  READ  (8.427)  JJ(L),SS(Lf 

2100  URITE(6,427)  J,J(L',SSd.) 

2110  DO  203  IT'd.NTH 

2120  READ  (8,408)  NDUrl,X<L,IT).r(L,IT),TH<L,IT).U.V 

2130  READ  (8.408)  NOUN . U,UP ( L . IT ) . U T ( L , I T ) ,UN . S ( L . IT ) 

2140  READ  (8.408  )  NDUH .  XKP(L .  IT  ) .  XKT  (L.  IT )  .H(  L .  I T )  .1- (1. ,  IT  )  ,G(  L ,  IT  ) 

2150  203  CONTINUE 

2160  IF(NS.EQ.O)  GO  TO  303 

2170  CALL  EVALUOTNS.DTH.NTH.L) 

2180  303  CONTINUE 

2190  DTIG'^DTI/G(K,1 ) 

2200  D3  =  1 ,0/(S(L,1 ) -S( J.1 ) ) 

2210  DS=DS/H(K,1) 

2220  CiUPDLP=DS'MUP(L.1  )-UP(  J.l  )) 

2230  DUTDLP-DSMUKL.l  )-UT<J,1)) 

2240  DUPDLT  =  DTIGMUP(K.2)  -UPd;.  1 )  > 
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2250 

DUTDLT=DTIG*(UT(K,2)-UT<K,1)) 

2260 

URITE(6,400)  S(K,1) 

2270 

URITE(7,408)  1 ,X(K, 1 ) , Y(K , 1 ) ,TH(K, 1 ) ,UP<K , 1 ) ,UT<K , 1 ) 

2280 

URITE(6,408)  2,S(K,1)  ,DUPDLP,DUPDLT ,DUTDLP , DU7DLT 

2290 

URITE(7,408)  2,S<K,n  ,DUPDLP,DUPDLT  ,DUTIILP,DUTDLT 

2300 

WRITE (7, 408)  3 ,XKP(K , 1 ) ,XKT (K ,1 ) ,H(K, 1 ) ,F (K, 1 ) ,G(K ,  1 ) 

2310 

DO  204  1T=2,«TH 

2320 

DS=1 .07(S(L,1T)-S(J,IT)) 

2330 

DS=DS/H(K,IT) 

2340 

DTFG=IiTF/G<K,IT) 

2350 

DUPDLP=DS*(UP(L,IT)-UP(J,1T)) 

2360 

DUrDLP=DS*(UT(L,IT)-Ur<J,lT)) 

2370 

DUPDLT=DTFG*(UP(K,IT+1 )-UP<K,IT-1 ) ) 

2380 

DUTDLT=DTFG*(Ur(K,IT>l  )-UT(K,II-1)) 

2390 

WRITE (7, 408)  1 ,X(K, IT ) ,Y (K,IT ) ,TH(K, IT ) ,UP(K , IT ) ,UT (K . IT ) 

2400 

WRITE (7, 408)  2,S(K ,  IT  ) , DUPDLP,IlUPHLT , DIJTDLP,DUTDLT 

2410 

WRITE <7, 408)  3, XKP ( K , IT ) ,XKT(K, IT ) ,H(K , 1 1) ,F (K . IT ) , B (k . 1 1 ) 

2420 

204 

CONTINUE 

2430 

DS=1 .0/(S(L.NTH)-S(J,NTH)) 

2440 

DS=DS/H(K.NTH) 

2450 

DTIG=IiTI/G(K.NTH) 

2460 

DUPDLP=tlS:MUP(l.,NTH)*UP'.J,N7H)  ) 

2470 

DUTDLP=DS+(UT(L,NTH)-UT( J.NTH)  ) 

2480 

IiUPDLT  =  DTIG*(UP(K,NrH)-UP(K,NTH)) 

2490 

DUTDLT*DTIG*(UT(K.NTH)-UT(K,rtTH)) 

2500 

WRITE (7, 408)  1 ,X(K,NTH),Y(K,MTH),TH(K,NTH) ,UP(K,NTH) ,UT(K,NTH) 

2510 

URITE(7,408)  2,S(K,NTH)  ,DUPDLP,DUPDLT,DlJTIiLP,»UrDLT 

2520 

URITE(7,408)  3,XKP(K,NTH) ,XKT<K,NTH) ,H(K,NTH) ,r-(K,HTH) ,G(K,NTH) 

2530 

2540 

C 

COMPLETED  OUTPUT  FOR  K-TH  PHI-STATION. 

2550 

2560 

N=J 

2570 

J=K 

2580 

K=L 

2590 

202 

L=rt 

2600 

2.610 

CC 

DATA  COflPLETED  FOR  ALL  BUT  LAST  PHI-STATION. 

2620 

2630 

500 

CONTINUE 

2640 

400 

F0RMAT(5X,28H  U.L.  STATION  COORDINATE  IS  ,1F7.4) 

2642 

401 

F0R«AT(12A6) 

2644 

402 

FOR«AT(2I10,1F10.5) 

2646 

403 

F0R«AT(2I5) 

2647 

404 

FORMAT  < 11 1  ) 

2648 

405 

F0RMAT(2F10.5,2I10) 

2650 

406 

F0RHAT(55H  IF  THREE  DIMENSIONAL  POTENTIAL  IS  FROM  MING' S  PROGRAM 

2652 

407 

F0RI1AT(33H  ENTER  1  SLENDER  BODY  ENTER  0  ) 

2690 

408 

F0RMAT(1I3,5E15.7) 

2700 

427 

F0RNAT<1I3,1F9.6) 

2710 

470 

FORMATI JAIO) 

2750 

END 
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2770 

SUBROUTINE 

EOALUO(NS,DTH,NTH,IS) 

2780 

2790 

C 

COHPUTES  UP 

AND  UT  FROM  SPLINE  DATA 

2800 

C 

SP 

S  COORDINATES  AT  UHICH  SPHI  IS  GIUEN 

2810 

C 

SPHI 

SPLINE  POTENTIAL 

2820 

C 

SPHP 

DERIVATIVE  OF  SPHI  IN  S  DIRECTION 

2850 

c 

SPHPP 

SECOND  DERIVATIVE  OR  MOMENT  OF  SPHI 

2840 

c 

DTP 

SPACING  INCREMENTS  IN  S 

2850 

2860 

COHMON/sPL 

1N/SP(30,60),SPHI(30,60) ,SPHP(30,60) ,SPHPP(30,60) , 

2870 

«  DTP(30,6u 

, 

2880 

2890 

c 

UP 

VELOCITY  IN  PHI  DIRECTION 

2900 

c 

UT 

VELOCITY  IN  THATA  DIRECTION 

2910 

c 

S 

S  coordinate  at  UHICH  VELOCITIES  ARE  EVALUATED 

2920 

c 

IH 

THATA  COORDINATE 

2930 

2940 

COrt«ON/OEL(]C/UP,UI,S,rH 

2950 

DIHENSION 

UP(3.120),UT(3.1201,S(5.120MH(3,120) 

2960 

2970 

2980 

L 

SPS 

INTERPULATIUN  POINTS  FOR  LUNGITUDINAL  SPLINE 

2990 

c 

PH 

POTENTIAL  AT  SPS 

5000 

c 

PrI 

MOMENTS 

5010 

c 

DT 

S  INCREMENTS 

3020 

c 

1 

INTERPOLATION  POINTS  THATA  DIRECTION 

5030 

c 

SPHIS 

POTENTIAL  AT  T 

3040 

c 

PHP 

DERIVATIVE  OF  THE  POTENTIAL 

5050 

c 

DELTA 

INCREMENTS  IN  T 

3060 

c 

MY 

MOMENTS 

3070 

5080 

DlhENSION 

SPS(120),PH(120),FM(120) ,DT ( 1 20 ) . T ( 1 20 ) ,SPHIS( 1 20) 

3090 

♦,PHP(120) 

,DELTA(120),MY(120) 

3100 

REAL  MY 

3110 

PI=3. 1415962 

5120 

T0L=1 .OE-06 

,5130 

rirH=2*i'ITH 

5140 

3150 

c 

COMPUTE  UP 

3160 

3170  DO  200  J^I.NTH 

,5180  SL=S(1S,.J) 

.5190  T(J)=rH(.l3,J» 

5200 

,i.210  HLi=Pl-f(J) 
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3220  D0201  1::1,NS 

3230  SPS(I)=SP(I,J) 

3240  PH(1)=SPHI(1,J) 

3250  FH(I)=SPHPP(1,J) 

3260  201  DT(n=DTP(l,J) 

3270  CALL  SPLEVN(SL,SPH1S(J),UP(1S,J),NS,T0L,SPS,PH,FM,DT) 

3280  SPHIS(L)=SPHIS(J) 

3290  200  CONTINUE 

3300 

3310  C  COMPUTE  UT 
3320 

3330  CALL  PLINE<MTH.T0L,T,SPHlS,Fi1, DELTA) 

3340  DO  202  J=1,«TH 

3350  CALL  SPLEVN(T< J) ,DUM,PHP<J),«TH, rOL,T,SPHlS,FM, DELTA) 

3360  202  CONTINUE 

3370  CALL  PLINE  (MTH.TOL,T,PHP,FM, DELTA) 

3380  DO  203  J=1,HTH 

3390  CALL  SPLEVN(T( J) ,DUM,«Y(J) ,HTH,TOL,T, PHf,FH, DELTA ) 

3400  203  CONTINUE 

3410  DO  204  J=t  ,NTH 

3420  CALL  SPLEON(T(J) ,DUM,UT(IS,J) ,«TH,TOL,T,PH,MY,DELTA) 

3430  204  CONTINUE 

3440  RETURN 

3450  END 
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3470  SUBROUTINE  SPOTEN(NS.NT,I)TH,NTH) 

3480 


3490  C 

SUBROUTINE  USES 

i  SPLINE  ON  SPLINE  INTERPOLATION  TO  FIT  POTENTIAL 

3500  C 

SP 

S  COORDINATES  AT  UHICH  SPHI  IS  GIVEN 

35t0  C 

SPHI 

SPLINE  POTENTIAL 

3520  C 

SPHP 

DERIVATIVE  OF  SPHI  IN  S  DIRECTION 

3530  C 

SPHPP 

SECOND  DERIVATIVE  OR  MOMENT  OF  SPHI 

3540  C 

DTP 

SPACING  INCREMENTS  IN  S 

3550 

3560 

COH«ON/SPL1N/SP(30.601,SFHI(  30.60)  .SPHP  1 30 ,60  )  .SI-'HPP  (  30,60 ) , 

3570 

$  DTP(30.60) 

3580 

3590  C 

T 

ARC! AN(X/ n 

3600  C 

X 

X  CUORDINATL 

.5610  C 

r 

1  COORDINATE 

3620  C 

PHI 

POTENTIAL  FROM  hlNG‘’S  PROGRAM 

3630 

3640 

DIMENSION  T<30.30),X<30,30),t<30,30;,PHI<30,30) 

3650 

3660  C 

TL 

SPLINE  INTERPULA) ION  COORDINAIES 

3670  C 

PH 

SPECIFIED  FUNCTION  VALUES  FOR  SPLINE  FIT 

3680  C 

FH 

MOMENTS 

.i69Q  C 

DT 

SPACING 

3700  C 

S 

LONGITUDINAL  POINTS  AT  UHICU  POTENIIAL  IS  SPEC  it- ICD 

>710  C 

iH 

IHATA  COORDINATES  AT  WHICH  SPHI  IS  SPECIFIED 

5720  L 

fir 

MOMENTS 

373u 

J740 

D I  HENS. ION  TL(60)  ,PH(60  1  ,Fh  ( 60 ..0  U60)  i ,  PI  It  60) 

.)750 

DIMENSION  PHP560).lH560i 

3760 

'i  "Vi 

REAL  nr 

J  /  /  V 

)7by  L 

READ  INI-'UF  AND 

COM57ERT  TO  PROGRAMS  COORDINATE  STSlTiM 

3790 

.5800 

READ  U  2,400) 

((3P51, J),X(I,J).r(I,J),Ci,DU,DUM,PHI(l, J),J=1  ,NT) 

3810 

4,1  =  1  ,NS) 

3820 

URITE(6,400) 

((SP<I,J),X(1,J),TII,J),D,DU,DUM,PHI(1, J) ,J=1 ,NT) 

38  30 

4,1=1 , NS) 

3840 

PI  =  3. 1  415926 

3850 

T0L=1  .OE-06 

3860 

LBC=3 

3870 

H1=2+NT 

3880 

TH(1 )=0.O 

3890 

DO  200  1  =  1, NS 

b900 

DO  200  J=1,NT 

3910 

SP(I,J)=-SP(1 

,J) 
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3920  PHI(I,J)=-PHI(I,J) 

3930  200  T(I,J)»0TAN2(X(I,J),Y(I,J)) 

3940 

3950  C  BEGIN  SPLINE  ON  SPLINE  FIT  OF  POTENTIAL  IN  TRANSVERSE  PLANES. 
3960 

3970  DO  201  IS>1,NS 

3980  DO  202  J=1,NT 

3990  L=HT+1-J 

4000  TL(J)=T(IS,J) 

4010  PH<J)=PHI(IS,J) 

4020  TL(L)=P1-TL(J) 

4030  202  PH<L)=PH<J) 

4040  CALL  PLlNE<HT,TOL,rL.PH,F«,DT) 

4050  DO  203  J=).NT 

4060  CALL  SPLEVN<TL(J),DU«HY,PHP(J),HT,TOL,TL,PH,Frt.DT) 

4070  203  CONTINUE 

4080  CALL  PLINE<MT,TOL,TL,PHP,FH,IlT) 

4090  DO  204  J=1,NT 

4100  CALL  SPLEVN(TL(J), BUNNY, r1Y(J), NT, TOL,TL,PHP,FM,DT) 

4110  204  CONTINUE 

4120  DO  201  J=1,NTH 

4130  CALL  SPLEVN<TH(J)  ,SPHI(1S,J),DUHNY,HT,T0L,TL,PH,NY,DT) 

4140  201  CONTINUE 

4150 

4160  C  BEGIN  LONGITUDINAL  SPLINE  FIT 
4170 

4180  DO  206  J=1,NTH 

4190  DO  207  1=1, NS 

4200  S(I)-SP(I.J) 

4210  PH(I)=SPHI(I,J) 

4220  207  CONTINUE 

4230  CALL  SPLINEINS, TOL,S,PH,FN,DT) 

4240  DO  208  1=1 , NS 

4250  CALL  SPLEVN<S( I 1 ,DUNrtY,PHP < I ) ,NS, TOL.S.PH.FN. D T ) 

4260  208  CONTINUE 

4270  CALL  SPLINE(NS,TOL,S,PHP,FH,DT) 

4280  DO  209  1=1, NS 

4290  CALL  SPLEVN(S( I ) ,DUN,NY( I) ,NS,TOL,S,PHP,FN,DT ) 

4300  209  CONTINUE 

4310  DO  206  1=1, NS 

4320  CALL  SPLEVN(S(I),SPHI(I,J),DUN,NS,TOL,S,PH,NY,DT) 

4330  SPHP(I,J)=DUH 

4340  SPHPP(I,J)=«Y(I) 

4350  DTP(I,J)=DT<I) 

4360  206  CONTINUE 

4370  RETURN 

4380  400  FORHAT(8D10.4) 

4390  END 
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4410  SUBROUTINE  SPLINE (N,TOL,X,Y,H,H) 

4420  C  NONPERIODIC  SPLINE  FIT  USING  THE  MONENTS  N(J)  TO  SPECIFY  THE  SPLIN 
4430  C  N  NUHDER  OF  INTERPOLATION  POINTS 

4440  C  TOL  TOLERANCE  ON  SOLUTION 

4450  C  X  NESH  POINTS  A=X( 1 ) .LT .X(2) .L T . Lr.X(N)=B 

4440  C  Y  ORDINATES  Y ( 1 )=F(X( 1 ) ) .ETC. 

4470  C  H  INTERVAL  LENGTHS  H( J)=X( J)-X(J-1 ) 

4400  C  LBC  CONTROL  NUHDER  TO  PICK  END  CONDITIONS  LBC= 

4490  C  1  FIRST  DERIVATIVE  Of  F  AT  X(1)  AND  AT  X(N+1 )  IS  GIVEN 

4500  C  2  H(n  =  YOP,H(N)  =  YNP 

4510  C  3  H(1 )=H(2) ,rt(N-1 )=H(N) 

4520  C  YOP  DERIVATIVE  AT  X(1)  OR  VALUE  OF  H(1) 

4530  C  YNP  DERIVATIVE  AT  X(N)  OR  VALUE  OF  H'N) 

4540  COHHON/ENDCOD/LBC.YOP.YNP 

4550  DIHENSION  X<N) ,Y<N),N(N) .H(N> 

4560  DIHENSION  L (99 ) ,HU(99) ,D( 99) 

4570  DIHENSION  P(99),Q(99) ,U(99) 

4580  DIHENSION  DUHH YB(99 ) .DC(99 ) , [C( 99 ) 

4590  DIHENSION  R ( 99 ) , DT (99) ,UP(99 ) , UN( 99 ) 

4600  REAL  N.L.HU 

4610  NrtO=N-l 

4620  DC  210  1^2, N 

4630  H(I)=X(I)-X(I-1) 

4640  210  CONTINUE 

4650  DO  200  i=2,Ni'10 

4660  L(I)=H(I  +  1  ).7(H(I)+H(H-1 )) 

4670  HU(I)=1.0-L(1) 

4680  D(I)=6.0^»L(I)/H(I  +  1  )^M  (Y(I  +  1  )  *Y  ( I )  )/H  ( 1+ I)  -  ( Y(  I ) -Y  ( I -1  )  )/H(I)  ) 

4690  200  CONTINUE 

4700  H(N)  =  X(N)-X(N-1  ) 

•IMO  IFaDC-2)  300,301,302 

4720  300  L(1  )  =  1  .0 

4730  D(1 )=6.0/H(2)»((Y(2)-Y(1 ))/H(2)-Y0P) 

4740  HU(N)=1.0 

4750  D(NI=6.0/H(N):»<YNP-(Y(N) -Y(N-1  ))/H(N)) 

4760  GOTO  303 

4770  301  L(1)=0.0 

4780  D(1)=2.0*YOP 

4790  tiU(N)=0.0 

4800  D(N)=2.0HNP 

4810  G0T03O3 

4820  302  L(1)=-2.0 

4830  D(1)=0.0 

4840  r1U(N)  =  -2.0 

4850  D(N)=0.0 


303  B=2.0 
P(1)=B 

Q(1)  =  -L(1)/P(n 

U(1)=D<1)/P<n 

L(N)=0.0 

R<l)=0.O 

DT(1)=[i<l)/P<1) 

DO  201  1=2, N 
P(I)=MU(1)»Q<1-1 )+B 
Q(I»=-L(I)/P<I ) 

R(I)=MU<I)yP(l) 

201  Dr(I)=D<I)/Pn) 

UP<I )=U<1) 

UN<1 )=0.0 

DO  205  1=1. N 
UP(l)=DT<l)+ft(I) *UN(1-1 ) 

UH(1)=R<1)*UP(1-1  ) 

205  U(I)=UP<1)-UN( [) 

N<N)=IJ<N) 

DO  202  I=2,N 
K=Nt1-I 

202  H(K)=Q(K)  •‘fKK+l  )*U(K) 

DU««YB(1)=B 

DCd  )=  2.0*M(1  )+L(1 )  <‘11(2) 

TCd  )*D(1  )-DC(1) 

DC(N)=2.0-»H(N)  ♦■rtU<N)'»rt<Nd  > 
TC(N>=U<M)-DC(N) 

DO  207  1»2,MM0 
DUMMYBd)=B 

DCn)  =  2.0»Hd)+MU(l)  »lid-1  )+L(I)  »rtd  +  d 
207  TC(I)=Dd)-DCd) 

K  =  1 

TL=Dd  )-2.0+(i<  I  )-Ld  )  m<2) 

TL=ABSdL  ) 

IFdL.GE.rOL)  GOrO  501 

K*N 

TL=D<N)  -2.0»rt<H)  -NlJ(N)*ri(N-1 ) 

TL=flBSdL) 

IFdL.GE.TOL)  GOTO  501 
DO  203  1  =  2, NHO 
K  =  1 

T=Dd)-2.0*h(I)-MU(I)*H<I'1  )-L(I)*H<I  +  n 
T  =  ABSd) 
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5440  SUBROUTINE  PLINE(N,TQL,X,Y,H,H) 

5450  C  PERIODIC  SPLINE  FIT  USING  THE  HONENTS  N<J)  TO  SPECIFY  THE  SPLINE 
5460  C  N  NUNBER  OF  INTERPOLATION  POINTS 

5470  C  TOL  TOLERANCE  ON  SOLUTION 

5480  C  X  HESH  POINTS  A=X(1 ) .LT.X(2).LT . LT.X<N)=B 

5490  C  Y  ORDINATES  Y(J)sF<X<J)) 

5500  C  H  HONENTS  H(  J)*F“''(X(J) ) 

5510  C  H  INTERVAL  LENGTHS  H( J)=X(J)-X< J-1 ) 

5520  DIHENSION  X(N) ,Y(N) ,H(N) ,H<N) 

5530  DIHENSION  L(99) ,NU(99),D<99> 

5540  DIHENSION  P(99) ,0(99) ,U(99) ,S<99) ,T(99) ,V(99) 

5550  DIHENSION  DC(99) ,TC(99) 

5560  REAL  H,L,NU 

5570  TY=ABS  <Y(1)-Y(N)) 

5580  IF(TY.GE.TOL)  URITE(6,403)  Y<1),Y(H) 

5590  NH0=N-1 

5600  DO  210  I>2,N 

5610  H(1)=X(I)-X(I-1) 

5620  210  CONTINUE 

5630  H(N+1)-H(2) 

5640  r(H+1)-Y(2) 

5650  DO  200  Is2,N 

5660  L(l)=H(If1  )/(H(I)+H(Ul)) 

5670  nU(ll  =  1.0-Hl) 

5680  D<I)=6.0*L<1)/H(I  +  1 ) ♦( < Y < I  +  l )-Y ( 1 ) ) /H( 1  +  1 ) -( Y (I )  -Y ( I - 1  ) ) /H 1 1 M 

5690  200  CONTINUE 

5700  B»2.0 

5710  P(2)=B 

5720  Cl(2)  =  -L(2)/P(2) 

5730  U(2)=D<2)/P(2) 

5740  S(2)=-MU(2)/P(2) 

5750  DO  201  1=3, N 

5760  F(I)=NU(I)+Q(I-t )+B 

5770  Q(I)=-L(I)/P(I) 

5780  S(1)=-HU<I)+'S(I-1)/P<I) 

5790  201  U<I)=(D(I>-MU(I)*U(I-1 ))/P(I) 

5800  T(N)=1.0 

5810  V(N)-0.0 

5820  DO  205  1=2, NMO 

5830  K=N+1-I 

5840  T(K)=Q(K)*I<K+1)+S<K) 

5850  V(K)=0(K)+V(K+1  )+U(K) 

5860  205  CONTINUE 

5870  (>L(N) ♦r(2)+MU(N)»T(N-1 )+B 

5880  DV=L(N)*V(2)+NU(N)*V(N-1 ) 


5890  M(N)=(D(N)-Dy)/C 

5900  DO  202  1=2, NHO 

5910  K=NH-1 

5920  202  H(K)=T(K)*M(N)+V(K) 

5930  H(1)=H(M) 

5940  M(N+1)=H(2) 

5950  DO  206  1=2, N 

5960  DC(I)=2.0>MlI)+HU(I)*H(I-l  )*L(I)HHI+1  ) 

5970  206  TC(I)=D(I)-[iC(I) 

5980  30  203  1=2. N 

5990  K=  1 

6000  fL=1f:(.lJ 

601';  rL=ADS  tlL; 

6020  (l-(  rL.GL.  IOL>  GOTO  501 

o030  203  CONTINUE 

6040  RETURN 

6050  501  lJRirE(6,40O)K.rL.rOL 

6060  URITE(6,401)  (rt( I ) ,D( I ) ,DC ( I ) , TC ( 1 ) , I =2,N ) 

6070  RETURN 

6080  400  FQRNflT(I5,2E15.4) 

6090  401  F0RrtAT(4E15.8) 

6100  403  F0RHAT(4OH2rU )  IS  NOT  EUUAL  T(N),  NUT  PEKIODIC 

6110  END 


6120  SUBROUTINE  SPLEVN(XE,YE,YP,N JOL,X,Y,H,H) 

6130  C  EVALUATES  A  SPLINE  INTERPOLATION  AT  XE  UHEN  THE  NOHENTS  H(J)  ARE 
6M0  C  GIVEN  AT  X<J). 

61  SO  C  YE  IS  THE  VALUE  OF  THE  SPLINE  AT  XE 

6160  C  H(J)  INTERVAL  LENGTHS 

6170  C  N  NUMBER  OF  NESH  POINTS 

6180  C  Y<J)  INTERPOLATION  VALUES  AT  INTERPOLATION  l-OINTS  X(J)  RESP. 

6190  DIHENSION  X(N) , Y(N) .H(N) ,H(N) 

6200  REAL  H 

6210  J=1 

6220  300  J*J»1 

6230  1F(J  .GT.N)  GOTO  501 

6240  IF(XE.GT.X<J))GO  TO  300 

6250  rE=(H(  J-1  )  K  (X(J)-XE)**3)+H(J)^»<(XE-X<J-I )  )*»J)  )/6,0 

6260  YE=YE+(Y(J-1 ) -H( J-l) ♦H ( J )*H < J)/6 .0)*(X( J) -XE ) M Y ( J )-M( J)+H( J i » 

6270  1  H( J)/6.0)*(XE-X( J-1 ) ) 

6280  YE=YE/H(J) 

6290  YP=(-N(  j-1  )  MX(J)-XE)»(X<J)-XE)+H(J)=MXE-X(J-1 ))  ♦(XE-Xc  J-1  )  i  >*0. 

6300  YP»(YP*Y(J)-Y(J-n)/H(J) 

6310  YP»YP-(H( J)-H  <J-1  ))*H(J)/6.0 

6320  RETURN 

6330  SOI  URITE(6,400)  XE,X<N) 

6340  RETURN 

6350  400  F0RI(AT(4H  XE,  1E1 0.4 , 1 3H  .EXCEEDS  OX  ,1£10.4) 

6360  END 


«FILE  (CHXDTBLSOL  ON  DTNSRHC 

100  FILE  5(KIND=REM0TE.HAXRECS1ZE=22) 

no  FILE  6(KIND  =  FRINTER.HAXRECSIZ£^13.') 

1  20  F ILE  7(TITLE  =  "TBLSOLOF'r',KiN!i-[a3K.PROTELTlL)N^3AyE.rtAXRECSIZE=22J 
130  FILE  8<TITLE  =  "rilLIPC0PT",KIND=DISK,FlLErrPI-=7) 

140  FILE  9(kIND=RErtOTE,MAXRECSIZP>22) 

150  FILE  10(TITLE="«ING3D0P(".KINluDlSK.FlLF.TYPE=7) 

160  FILE  11(TITLE  =  '‘THHBETA",KIN£i^DISK,FILETrPE:=7) 

170  IRESET  FREE 

180  C  PROGRAH  TBLSOL 

190  C  PROGRAM  TO  SOLOE  PARTIAL  DIFFERENTIAL  EOUATIONb  .  USES  THE  0  BRIEN 
200  C  *  HYMAN, AND  KAPLAN  IMPLICIT  FORMULAIIUn 

210  C  IHE  RESULTING  ofSTEM  OF  LINEAR  EQUATIONS  ARE  SOUv'tO  USING  A 

'20  C  $  DIRECT  GAUSSIAN  REDUCTION  APPLIED  TO  THE  bPAKSlI  CulFI- ILIEN  T  nAlRl 

'■‘30  COnnUN/  INT/NTH.MTH.NS.DELTAT 

no  COmMON/OAR/XV 

250  COMMON/CDOD/ODL .D.ODR.CR 

260  COMrtON/COEFPC/PC 

.,'70  COMMON./ DAT  A  IN/  TH  .UP  .UT  .S.UPLP  .U  iLf  .GPuT  ,U'i  i.  i 

280  C  0  fl  M  0  N  /  G  E  0 1 N  /  K  F' .  K  I .  Cl .  I  .  u  U’ 

2'?0  [GnnuN/ JON.' JCi,  JN 

jo  CQMMON./TOLEkn/TOL 

)  1  0  R  E  A  L  h  P  ,  K  T 

.520  DIMENSION  iirLEn2.',TITL<3) 

530  DIMENSION  X  ISO  J ,  M2.  I  jOj  .  Ui- i  .2 .  I 'jO  )  ,  UT  i  .2  , 1  SO  i 

340  DlMENblON  IHiZ.IjO) 

,550  DIMENSIun  pc 

.joO  ii  1  nEN.j i ijif  I'jj.i) 

170  LI  LMLN'.oIUN  '...lZ  .  1  j'O)  ,UPLP<  2  .  IS  .’  i  ,UiLr'' ,: . '.j'.  )  .'Ji  L  !  n  .  .  .'51 1.  ';  ■  .' . : '... . 

'SO  DinENbiON  rp  '2. 15:  .,,r  ■ . .  M,. .■  .U'. i :  ,r ' z.  i  >  .i.gi 2. r-jo ) 

•  ■'O  DIMENS  luN  D(  1  5'.i.  3,  j  )  ,ODL  n  50,3, 3)  .ODK'  r,  -.).  3 ,3  , CR ( 1550 . 3  ) 

400  DA  iAi  (PC  (  I ,  J) ,  J=1  .4  ) ,  1  =  1  .2  .1,' 

410  $-0.000701 ,0.028345,-0.386768,0.017521 . 

420  $  -0.001953,0.062588,-0.33480.0.191511 

430  URITE(9.4n  M (PC(I.J) . J=1 ,4).I=l , 

440  URITE(9.412) 

450  URI  ]Er,?.4  I  3) 

460  UNITE  <  9 ,4 i 4 ) 

I/O  ri:aiu5.415)  ns 

480  URITE':7.415)  NS 

I'-iO  URI  TE(7,4I6,' 

500  URITE'.9.417) 

‘ ' !  0  Rlr.AD  \  5 , 4 1  5 1  N 1 

520  UKITE(9.4!5)  nI 

530  4KiTL(6.4IO)  NS.NI 

DAIA  TUI. /0.100E-0'// 
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550 
560  C 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670  C 
680 
690 
■'00 
710 
720 
'30 
7  40 
'50 
7  60  C 


780 

'90 

iOO 

810 

820 

830 

840 

850 

860 

870 

880 

8*0 

V  n  0 

V I  0 
V-'O 
'9  30 
V40 
950 
■/oO 

■'80  L 
9  00 


UHtITE(9.409>  TOL 
INPUT  PRELIMINARY  DATA  FROrt  TAPE 
READ  (8,401 )  (TITLE(J) .J=1 ,12) 
gRITE(6.40n  (TirLE(J).J=1 ,12) 

URITE(7,401)  (TITLE( J),J=1 ,12) 

READ  (8,402  )  N,KPK,BL 
URITE(6.402  )  N,KPK,BL 
URITE(7,402  )  N,KPK,BL 
READ  (8,405)  STAR f, SPINS, NSTAl. NTH 
URITE(6,405)  SrART.SKINS.NSTfii .NTH 
URITE(  7.405)  -START .SPIN'S. NSTAl  .NTH 
rtTH=NTH-1 

SUBROUriNE  INITIAL  DEFINES  IHE  INITIAL  DA  1 A 
CALL  INITAL 
J0  =  1 


JN=2 

READ  (a,427)JJ.S3 
URITE(6.427) JJ.SS 
READ  (8,427)  JJ.SS 
URITE(6.427)  JJ.SS 
URITE(7.42;)  JJ.SS 
ENTER  GEOMETRY  AND 
DO  200  ITH=1,NTH 
READ  (8,408)  NDUM, 
URITE(6.408)  NDUM. 
UftITE(7,40e)  HDUH. 
READ  (8.408)  NDUfl, 

♦  UTLTd  ,ITH) 
URITE(6,408)  NDUM, 

t  UIlT( 1 .ITH) 
aRITE<7,408)  NDUM. 

♦  UTLTd  , ITH) 

READ  (8,408)  NDUM, 
URITE(6,40S)  NDUM, 
WRITE(7.408)  NDUM. 
200  CONTINUE 

[iELTAT  =  THd  .2' 

DO  201  ISd  .NSIAI 
MS  =  IS 


POTENTIAL  DATA  FOR  INITIAL  LINE. 

X(1  ,ITH).Y(1  ,ITH),THd,ITH)  .UPd  .ITH)  .UTd  .ItH) 
Xd  .ITH)  .Yd  .irH).IHd  ,ITH)  .IJP(  I .  I IH  ) .  U  i  d  .  I TH ) 
Xd  .ITH)  .Yd  ,ITH).THd  .1 IH)  .UPd  .  I  fH)  .lifi  1  .1 IH) 
Sd  ,ITH),UPLPd  .ITH),UPLTd  ,ITH)  ,I)TlP(  1  . 1  IH) . 

Sd  ,ITH).IJPLP(1  .ITH)  .ijp,..r':  i  .  i  [H  '  .UTLP  d  ,  I  fl-i>  . 

Sd  ,ITH),UPLPd  ,ITH).UPLTd  ,I  (H),U1LPd  .1  iHi  , 

KPd  ,ITH).Kld.irH).Hd,ITH),|-d.liii).Gbil.:(6 
KPd  .ITH;  .Kid  .riH)  .Hd  .  riH  '  .Fd  .ilH)  ,Gbd  .HH) 
KP  d  ,  1 1  H  )  .  KT  (1  , 1  TH )  .  H  d  ,  I  IH  )  ,  F  d  .  1 1 H  )  ,  bb  U  .  1  f  H  / 


IF(IS.bT.NS)  GO  TO  500 
RtAD(8,427)  JJ.SS 
URITF.',6.427)  JJ.SS 
HO  202  IT  d, NTH 

ENTER  GEOMETRY  AND  PUIENTIAL  DATA  FOR  PHI-STAIIUN  JN. 

READ  (8,408)  NDUM ,  X  (  JN ,  IT  ) ,  Y(  JN,  IT ) ,  1H(  JN,  1 1 )  ,UP  ( JN  ,  1 1' ) .  U  F  ■  JN  .  I  D 
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1000  READ  (8,408)  NDU« ,S(  JN,  I T)  ,UPLP(  JN .  IT )  ,UPL T ( JN.  I T )  ,UTLI-'(  JN,  I F ) 

10)0  i  .UTLT(JN,IT) 

1020  READ  (8,408)  NDUM,KP( JN, IT ) ,KT ( JN , IT ) ,H ( JN , IT ) ,F ( JN , IT ) ,GG ( JN, IT ) 

1030  202  CONTINUE 

1040  DO  205  11=1, NI 

1050  C  COMPUTE  COEFFICIENTS  FOR  LINEAR  EQUATIONS 

1060  C  SUBROUTINE  ZSYPLN  COMPUTES  THE  COEFFICIENT  ALONG  THE  SYMMETRY 

1070  C  t  LINE  THATA  EQUAL  ZERO,  THE  LOAD  UATER  LINE. 

1080  CALL  ZSYPLN 

1090  C 
1 1  00  l 

1110  C  SUBROUTINE  LECOEF  COMPUTES  THE  COEf F  IC .l£n FS  OF  THE  lINEAK 
1120  C  EQUATIONS  EXCEPT  ON  IHE  SiTIhETRf  LINES. 

1130  C 
1140  C 

1150  LALl  l..£ijjEl- 

■  lo'.'  .03  CUi'lilNiJ£ 

I  1  r  0  C 

1  ISO  C  SUBKUUFINE  FSYPLN  COMPUTES  IHt  COEFF  IClENl  b  ON  IHF:.  SyMUEIR: 
il'o  C  THATA  =  PI/2. 

1  200  L 

1210  CALL  FSYPLN 

1220  C  SOlUTION  OF  LINEAR  EQUATIONS  13  XO 

1230  C  SUBROUTINE  SOLVE  COMPUTES  THE  SOLUTION. 

•1240  CALL  SOLVE 

1250  602  CONTINUE 

1260  URIFEIo.AOAi 

1270  l'  =  JN 

1230  DO  204  IFri-^l.hTH 

1290  URl  TL’lo.AOT)  TH(K.nH)  ,X  (K .  1 TH ) .  Y  (K .  I  Th  /  .S(f.,lTH) .  ( XV  aTH .  I ) .  I  =  1  .  3) 

1300  URIT£(7,403)TH'.K.ITH)  .X(K.1TH1  .Y(K.  I  FH;  ,L^;.  i  FH)  .  vF',  .]  FH.  1 )  .1=1  ,3) 

1310  2U4  CONTINUE 

1320  205  CONTINUE 

1330  J0=JN 

1340  lFvJO.EQ.1)  JN=2 

1  350  IF(.JU.EQ.2»  JN=1 

1 3*0  201  CONTINUE 

1370  500  CONTINUE 

I380  401  FGRMATdZAS; 

1  39  0  4  02  Eui'.ilA  I '.21  10.  IF  10.5) 

It'.;'.  4':'3  FORflATI  4F 1 0 . 4..3E20.8 ) 

141  0  404  FORMAT!  1H:.2,4X,6H  THATA, 6X,2H  ‘,9X,2H  V.Vd2H  S.11^.5H  I'H,.!:". 

i4?0  $  2H  T.19X.2H  H) 

1430  405  FORMAT  •:2F  10.5.2110) 

1440  t'Tfi  HjR:MAT';10X.3E:5.,7  I 


1450 

407 

FORMAT (5X,3E15. 7) 

1460 

408 

F0RMftT(1I3,5E15.7) 

1470 

409 

F0RMAT(1E14.5) 

1480 

410 

F0RHAT<5I4  ) 

1490 

411 

FOR«AT<4F10.6) 

1500 

412 

FORMAT (54H  MS  IS  NUMBER  OF 

STATIONS  AT 

UHICH  BOUNDARY  LAYER 

1510 

413 

F0RMAT(I9H  TO  BE  CALCULATED 

) 

1520 

414 

F0RHAT(19H  NS=  113 

) 

1530 

415 

F0RMAT(1I3) 

1540 

416 

FORMAT v43H  NI  IS  NUMBER  OF 

ITTERATIONS 

AT  EACH  STEP  1 

1 

417 

FORMATCUH  NI=  113 

) 

1560 

421 

FORMAT (26H  INRUT  HAT A  OUl 

OF  ORDER. 

/2I8) 

1570 

427 

F0RMAT(1I3.1F9.6) 

1580 

470 

FORMA T( 3A10) 

1590 

END 

1600  SUBROUTINE  INVERS(A,AI,T) 

1610  C  COMPUTES  INVERSE  OF  3«3  HATRIX  A 

1620  C  AI  IS  INVERSE  TIS  TOLERANCE 

1630  DIMENSION  A(3,3) ,AI(3,3)  ,TH(3,3) ,EN(3,3) 

1640  DET=A(1 ,1  )*A(2,2)*A(3.3)+A(1,2)*A(2,3)+A(3,1 )+A(2. 1 ) »A(3,2)*A( 1 ,3) 

1650  D=AM .1 )*A<2,3)»A(3,2)+A(1 ,2)*A(2.1 )*A(3.3)+A(1,3)*Ai2,2)+A(3,1 ) 

1660  DET=DET-D 

1670  DA6=ABS  (DET) 

1680  IFIDAB.LT.T)  GO  TO  GOl 

1  690  liI  =  I.O/[iET 

1  700  AU1.1)=  A<2.2)*A(3.3)-A(3.2)*Al2,.5> 

1710  AI<2,1)=  A(2,3l*A(3.1)-A(2,1)*rt‘.3,3) 

1  720  AI(3,1  )=-A(2,2)»A(3. 1  )  ^A(2.1)^A•;3.2) 

1  730  AI(  1 ,2)=  +  At  1 .  3)  tH'.  5,2)  -A-:  1 .2)*A(3,3; 

I  ,M\,'  Al(  3,2)  =  -A(  1  , 1  )»A(3,2)+A(  1 .2.i*A(3, 1) 

1  750  Al(2.2)=  A(1.1)^»A(3,3)-A(1,3)*A(3.!1 

1  760  AI(t.3)=  AM  ,2)*A(2..3) -AU  .^vi»Ai2,2) 

1  770  AH2,3)--A(1  , 1  )*Ai.2.3)  t-Ad  .3  )  fA*.' .  . 

1  780  AI(i.3)-  A( ! . f ) fA'2.2;  -Ad .2)»At2, I) 

••VO  DO  200  1  =  1,3 

1800  DU  200  J'M  ,3 

1810  AI(I,J)vOI^Ald,J) 

1820  200  CONfiiNUE. 

1830  00  2ul  1=1,3 

1  840  DO  201  Jd  ,3 

1850  lfl<I,J)=0.0 

1  860  Eii(I,J)=0.0 

1870  IFd.EO.J)  EM(1,J)=1.0 

1880  DO  201  K=1  ,3 

1890  201  TM(I,J)=TM<[,J)+A(I,K)*AI(K.J) 

1900  DO  202  1=1,3 

1910  DO  202  J=1,3 

1920  IS=I 

1930  JS=J 

1940  DTM=TM<I,J)'Erta.J) 

1  950  Ar«  =  A6S(£iTM) 

1  960  IF(ATi1,GT,  I )  GO  TO  502 

1970  202  CONTINUE 

1980  500  RETURN 

1990  501  UftnE(6.40O)  HET.T 

:/000  URirE(6,401)  A 

2010  STOP 

2020  502  URirE(6,400)  DET.T 

2030  URITE(6.401)  A 

2040  URIUio.TOi;  A,( 
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2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 


URITE(6.403)  IS.JS 
UR1TE(6,401)  TH 
UR1TE(6,401)  Ert 
URITE(6,402) 

STOP 

400  F0RMAT<5H2DET=,1E15.7,5X,3H  T^.IEI 

401  F0RHAT(3E15.?) 

402  F0RhAT<25H  INVERS  IS  NOT  CORRECT 

403  F0RHAT(2I5) 

END 


2150 

SUBROUTINE  INITAL 

2U0  C 

DEFINES  INITIAL  CONDITIONS 

2170 

COHHON/OAR/XU 

2180 

COMHON/INT/HTH,HTH.hS,DELTAT 

2190 

DIMENSION  X0(15U,3) 

2200 

2210 

URITE(9,402)  ,^^xTe 

URITE<9,403) 

2220 

READ(5,404)  NC 

2230 

IF(NL-1 >100,1 01, 102 

2240 

100 

URITH9,405) 

2250 

READ  IS. 401)  THII 

■'260 

URITE(<7,401  )  TH11 

2270 

URnE(9,406) 

2280 

READ  (5.401)  T 

2290 

gRIfE(9.401)  T 

2300 

URITE(9,407) 

2310 

READ  (15.401)  H 

2320 

URnE(9,401  )  H 

2330 

URnE(6,401  )TH11  ,T,H 

2340 

DO  200  ITH=l,NrH 

2350 

XV(ITH,1)=TH11 

2360 

XV<irH,2)»I 

2370 

200 

XV(ITH.3)'=H 

2380 

URirE(6,400)  IHII.T.IH 

2390 

URITE(;.401)  FhII.T.H 

2400 

return 

2410 

101 

READ  (11,406)  NTHCK 

2420 

IF(NTH.NE.NTHCK)  GOTO  300 

2430 

READ  (11,401)  ((X0(I,J).J=1,;3),I=1.NTH) 

2440 

URITE(  6,401)  ((xy(l.J>,J=l,3).I*1,NTH) 

2450 

URITE(  7,401)  ((Xy(I.J),J=1,3),I*1.NTH) 

2460 

RETURN 

.'470 

300 

URITE(9,408)NTH,NTHCK 

2480 

gRITE.;9,409) 

,'490 

STOP 

2500 

102 

URITI£(9.4l'j< 

.'510 

‘3i  (ji’ 

.2520 

40’0 

'• -RfiATdaHlINinAL  values  /'6H  IHII 

2530 

1 

(  5X,3H  H*1F10.4/,  ■) 

2540 

401 

FURIlAT(3Fl0.5> 

2550 

402 

I- Ui", H A T 4jH  ii"  The  IN.lfiAi,  OALLc'o  h'-- ,  .  .'rl 

5  4  0 

4'J  J 

fur.nA  •  '  .'Z:-!  C'iHtHJiUE  ENTER  A  /)*  )  0^ 

'  j . 

4v-: 

fiJSMATd  11 

■560 

405 

I'-URnAKIVH  I'Hri*  IHO.S  ) 

4':' 6 

fURftATi.l'H  f-  fAN(SElA)=  IFIO.I: 

^11  Format  (if  the  Initial  Values 

are  specified  as  a  function  of  them  Enter  1) 


2600  4C7  F0RHA7(19H  H=  1F10.5  ) 

2610  iOB  FOfiHAT(SH  NTH=,tlJ,/7H  NTHCK=,1I3  ///) 

^*20  409  F0RHAT(48H  NUHBEF.  OF  INITIAL  DATA  NOT  COHPATIBLE  WITH  NTH  ) 

2630  410  F0RHAT<47H  URITE  OUN  ROUTINE  FOR  ENTERING  INITIAL  DATA 

2640  END 


2650  SUBROUTINE  COEFF(TH,H,SA,CA,T) 

2660  C  ALL  FUNCTIONS  CONFUTED  IN  THIS  SUBROUTINE  ARE  FUNCTIONS  OF  THATA. 

2670  C  H,  ALPHA,  AND  T 

2680  C  SA=SIN(ALFHA),  CA=CQS  (ALPHA) 

2690  C  A  IS  THE  COEFFICIENT  MATRIX  FROH  THE  LEFT  SIDE  OF  THE  PDE 

2700  C  B  IS  THE  COEFFICIENT  MATRIX  FROM  THE  RIGHT  SIDE 

2710  C  C  IS  THE  FORCING  FUNCTION 

2720  C  VARIABLES  BEGINNING  UlTH  G  OR  H  ARE  DEFINED  IN  SUBROUTINE  GS 

:;730  C  PC  ARE  THE  COEFFICIENTS  OF  THE  PILYNOMIALS  A  AND  6  (NOT  RELATED 
2740  C  TO  COEFFICIENT  MATRICES)  UhICH  BRING  IN  THE  RErNOLDS  NUftDE,': 

2750  C  DEPENDENCE. 

i!  7  6  0  C  0  M  M  (J  N  /'  C  H  /  r  u ,  D  (j  ihi 

2770  C0Mr1Ui»/LA:eC/A,B,i: 

2780  CuMMOi'i  ■  CG / G , HI  ,H2,TFG,BI-G 

70  L0(1M0N/CGD/GH.GA.GT,H1  T,H1H,H2I  ,H2H 

?800  COMflOf(/CGDD/GHH,GHft,GH  T.GAA.GAT.GTT 

58' 0  COMMON, 'll  I NPUT/ULF,VLF-,ULTH,VLTH,Un.KP,KT,UMLTH,UMLF 

'R70  COMMGN/CQEFPC/PC 

2830  COMMON  MT 

2840  REAL  KP.KT 

2850  DIMENSION  A(3..})  ,B(3,3),(;<3) 

2860  DIMENSION  G( 2 ,2) .GH(2,2) ,GA(2,2) ,G I (2,2) 

2870  DIMENSION  GHH(2,2) ,GHT(2,2) .GHA(2,2) ,GAA(2,2) ,GAT (2.2) ,GTT ( 2 ,2) 

■'880  DIMENSION  PC(2,4) 

2890  UMLT=UNLTH 

2900  CALL  QSUH.SA.CA, T,1 ) 

2910  C  COMPUTE  A 

2920  600  A(1,1)=G(1,n 

29.30  A(1,2)~TH*  GT(I.I) 

2940  A(1.3)=TH7GH(1,1) 

2950  fl(2.1  )-^G(2,1 ) 

2960  A(2,2)=TH^K3T(2.1 ) 

2970  A»2.3)=TH«:GH(2.1 ) 

2980  .A(3,1  )-Tr-G 

2990  A(3,2)=THt||1T 

3000  A(3.3'-IH+H1H 

.iOlO  L  COMPUTE  B 

3020  B(1  ,t  )^=^G(1  .2) 

3030  BU.2)^TH»GT<1,2> 

3040  B',  1  ,3)  =  TH^GH‘1  ,2; 

1050  B(2.n=G(2.2) 

.j060  B;2,2i -^rHtGT(2,2J 

1070  B(  2.  j  i -TH-*G.i(2,2) 

3  j80  8.3.1  ■>  =Sl-G 

■OrO  0(3.2)= rH*H2T 


3100  6(3,3>=TH«H2H 

3110  IF(HT.NE.3)  GOTO  100 

3120  URITE(^,400)  FG,D6DH,TH,H, T,SA,CA 

3130  URITE(6,403)  G 

3140  URITE(6,403)  GH 

3150  URITE(A,403)GT 

3160  URirE(A.402)  A 

3170  UR1TE(6),402)  B 

3180  100  CONTINUE 

3190  C  REYNOLDS  NUMBER  INFLUENCE 

3200  C  REYN0LD"S  NUMBER  BASED  ON  LENGTH  IS  SET  A I  10it6 
3710  RL=1.0E  06 

3220  RT=RL*TH«UM 


3230  RT=ABS(RT) 

3240  RC-ALOG(RT) 

3250  FA=PC(1,1) 

3260  PB=PC(2.1) 

3270  no  200  J=2,4 

3280  PA:=RD»PA+PC(1  ,J) 

3290  200  PB=RDtPB+PC(2,J) 

3300  CF1=EXP  (PA*H+PB; 

3310  CFP=CF1*(CA+T*SA) 

3320  CFT^CF1»(-SA+T^t^CAl 

3330  DELTA1=TH)'H1 

3340  IiELrA2=TH*H2 

3350  TF=THHFG 

3360  SF=TH»SFG 

3370  C  COMPUTE  C 

3380  U«I=1 .0/(1 .0+UM) 

3390  C(1  )=  0.5+i.:FP-2.0»TH<^UMM=<G(1  .1 )  fUMLPn'il  1 ,2)  tUi'ILT) 

3400  IF(fiT,EQ.3)  URITE(6.401)  C(1) 

3410  C(1)=  CM  )-UHIMDELTA1'»ULP+DELTA2*ULTH) 

3420  IF(MT.Ea.3)  URITE(6,401)  C<1) 

3430  XKT=G(1 ,2)+G(2,1 )+SA*H1 

3440  XKP=G(1 ,1) -G(2.2)-5A»H2 

3450  1F(«T.NE.3)GG  TO  300 

3460  URITE(A,400)  F'A.PB.Cl- 1  ,CFP,Ci- T 

3470  URITE(6,400)  DELTA1 .IiELTA2,TF,SF.UMI 

5480  URnE(6,400)  XKT,XKP 

3490  300  CONTINUE 

3500  C( 1 )=  Ci 1 )>TH+(KP*XKP+K1  PXK  i ) 

3510  IF(hT.EQ.3)  URITE(6,401)  C(1) 

3520  C  ( 2)=:0.5*CF  T  -2.0  +  UnI  m(j(2, 1 )  rijrtLP+U(2.  iiJtiL  1 1 

4530  C  I  7  ) U  (  2  )  -  ijn  U  UitL  T A 1  +VLP  --lil-i,  i  A2  tULTH) 

i540  ;KF'  =  G(  1 .2  i+0(2,1  )+CfltH2 


3tj50  XKT=G<2,2)-G(1  ,1  )-CAmi 

3560  C(2)=  C(2)  +  Tl+*(KP»XKP+KI*Xt<T) 

3570  C(3)=0.025*H-0.022 

3580  IF<Hr.EQ.3)  URITE(6.401)  C(3) 

3590  U«I=1.0/UM 

3600  C(3)=  (:(3)-UMI»(TF*UMLP+SF*UMLr) 

3610  IF((1T.EQ.3)  URrrE(6,401)  C(3) 

3620  C(3>=  C(3)+TF*KP+SF*KT 

3630  IF(HT.EQ.3)  URITE(6,401)  C(3) 

3640  500  RETURN 

3650  400  F0RHAT(3X,5E15.6) 

3660  401  F0RMAT(3H  C=  .1E15.6) 

3670  402  F0RHAT(3I115.7) 

3680  403  F(jRrtAH2E15.7> 

3690  CATALOGdiLTiUMY.erfiLCuEl- .Iti=CHXL.Kp:=120) 
3700  END 


3-^10 
3720  C 
3730  C 
3740  C 
3750  C 
3760  C 
3770  C 
3780  C 
?790  C 
^800  C 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3830 
3890  C 
3900  C 
3910  C 
3920  C 
3930  C 
3940 
3950 
3960 
3970 
3980  C 
3990  C 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080  C 
4090 
4100 
1 ; ;  0 
■'t  '  J 
4!  30 
4140 

4  !  '  .) 


SUBROUTINE  GS(H,SA,CA,T ,NG ) 

ALL  FUNCTIONS  COMPUTED  IN  THIS  SUBROUTINE  ARE  FUNCTIONS  OF  H. 
i  ALPHA  AND  T 

SA  IS  SIN  (ALPHA)  AND  CA  IS  COSIALPHA) 

G(I,J)  ARE  THE  FUNCTIONS  G  SUBSCRIP  U 
GH  IS  THE  DERIVATIUE  OF  G  UITH  RESPECT  TO  H 

GA  .  ALPHA 

GT .  I 

GHH,GHT,GHA,GTT.GTA,GAA  ARE  THE  RESPECTIVE  SECDNIi  PAKIIAL 
$  DERIVATIVES. 

COMNON/CF/FB 
COMHON/CKD/I-  BP.FBPF' 

CONhON/C(j/G.H1  .HO.TKj.SFG 

CUnHQN/LLiLi/GH.aA.Ul  .HI  I  ,H1H,H2T.H2H 

COrtMON/CFQ/FG,li(j[iH 

DIflENb  [ON  Pfi  I,  4)  .1-  BP(  4  )  ,FEipr'(4  ) 

DIMENSION  G(2.2) .GH(2.2) .GA(2.2),GT(2,2) 

CALL  FS(H) 

COMPUTE  H1,H2,Ht1.  AND  H22 
H11  UILL  BE  COMPUTED  AS  TFG 
H22  UILL  BE  COMPUTED  AS  SFG 

H1T,HtH.H2T.H2H  ARE  f-'ARTlAL  DERIVAUVES  UITHUITH  RESPECT  TO  I  hNO 
4  H  Of  THE  FUHCTIOHS  H1 1  AND  H22 
HI r=-FB(4)*SA 
H2T=I-B<4)  rCA 
H1=H*CAPr*Hrf 
H2  =H'»SA+ T»H2  F 

COMPUTE  THE  FUNCTION  T-G*C0S(AlPHA)»-T*FB4*S1N( ALPHA) 

COMPUTE  THE  FUNCTION  S-Gr3IN(ALPHA)-T »FB4*C05(ALPoh ■ 

FG=2.0*H/(H-1 .0) 

TFG=FG  +  CA  +  Ti‘FB(4)»SA 
SFG=FG *5A  ( 4  ) >Cm 

HtT=-HlI 
H2T--H.7T 

CiGDH  =  -2.0/<(H-1  .0)  +  (H-1 .0) ) 

H1H=CA*DGDH+T+EBP(4) »SA 
H2H=SA*DGDH-T+FBP(4)*CA 
COMPUTATION  OF  G"S 
CAS=(:.A  ‘CA 
S  A  S  =  3  ii  t  S  ri 
S  AF  m  -  bA  ♦  I.  A 
IS  =T^T 

FOP  !-Fy(  I  )+F0',  2) 

G  !  I  I  )  Ab  T  t  F  OF’  1  <  bAC  A  *■  I S't  F  B  (  3 ) ♦SAS 
F’=1  .0-Ib>FB(3) 


lAO 


r 


4160 

4170 

4ieo 

4190  C 
4200 

4210 
4  22C 
4230 
4  .  4  U 
4 :  'j  J 
i . 

42  V 
42B'. 

a .  .  . 

( 

IT'; 


ij(  1 ,2  )^P*SACA*  bv  .  (•CAS  I-  In  1  )  *bA,  ■ 
G(2.1)^^»SACA*T«(Fb(1 )»CAS-FB(2  '  »SAS - 
ei2.2)^SAbM»FOPT*SALA  ♦TS»FBi  SuLAb 
CONFUTE  FIRST  DERIVAt Ivtb 
CS«SS=CAb-SAS 


GT( 

1  .  1 

=  FOfl'SALA 

* .  .0‘  1  *f  b 

'  3  1 

•SA^ 

GH( 

1.1) 

=  I  •  1  f  HI-  .  1) 

•  TbF'- 

A  •  f  i  >  ’  F 1  •  S  A 

GI  ' 
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4iJ0  SUHKOUllNk  leiUtk 

4iJO  L  CO«PUTtS  'HI  (Utf  t-  il  lEKIb  Uf  iHl  LlNtftE  LUUAIIONb  KtbULilNU  f-Kun 

4J40  L  iMk  IUHlIl;'  kufcflUlAllOw  Uf  I  Ht  ^  L't  . 


4}50 

UUBbM  N' 

4  j  6  -J 

lUNNijn  1  Ik  !■' 

i" 

.  DLi*'  .  ■  f' 

4  ■ 

VAK 

i  P  . 

, ,  'NfliJN  ■  ut  ‘  1 

1  L 

'  0 

- 

,  ‘  ,  i  ■  .  .  tJi  .  f- 

,  iJ  .  1  (■  ,  b  i  4 

.411 

■WIlilN  -'t  .*1 

4  '  .'.f 

1  4  ' 

f  4|!  «l  .  ,  , 

-  .  i'  .  . 

.  4  , 

. .  (P  .  1  K\  ,  Ki  '  ,  ■  'fi;  ,  fli 

;  4  <  i; 

^  (IBUJN  1 JK  , 

.  N 

>44' 

:  t  I'  N 

'0. 

14' 

lU^MOc^  41 

44tv 

I'l  •.,  '  ■  , ' 

44  'Q 

.  1  «  ON  I V  1 

4  4r 

MBf*  ■ 

4  4-' 

MhtNblOn 

.  ,  ' 

.  ’  ... 

.  J'. 

4‘C"- 

:  4>  x  -,  i  ij«i 

‘ 

.  U '  *  .  '  1-  V 

.  1  ^  ‘  ‘‘i  L 

4V  ' 

b  ,  It  4  ■  i  l'4  •  ■ 

.t  ■  .  . 

n  ,  ,  »  '  .  ,  * 

;  ,  ^  ‘  4  > :  j  N  ! 

,  • 

‘  .1  '  *  .  ^ 

.  b'  i'*'  '  '  'j  b  »  •  ,  ,  ■ 

1'  '  . 

^  N  !  I'N  -  ' 

c-  .  ■  ' 

1'  4 

.  .  nt  »»  .  .  *4  4' 

*  .  • 

.  »  J  ,  “l 
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[■  L  ■  '  ■  .  .  .  ^ 

4‘  ^ 

«  ' 

4'^  ■ 

M  «  .  ».  4  fet 

.  i  “  -N  4  . 

•  r  1, , 

,  .  *  '  -  ^  N  .  . 

‘  .  N  .  . 

»  ,  I'  « 

■  • 

••  ^ 

- 

■I  i  4  .■  ,  ,  I  •  ii  ,  N  .  .  ' 

4  Cl  ‘j  >11.  ■  ;  . "  ■  .  . 

< '  0  ;  I  ►  lf« ,  .  ’ 

■•c  .  «c  '  t  ' 

i  ^  .  I  ,  1.  M » 
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4770  URlTE(<!i,400)  XKP.XKT 

4780  URITE(A,406)  A 

4790  gRlTE(^,407)  B 

4800  URITE(6,406)  C 

4810  301  CONTINUE 

4820  AIiEL=ABS(  DELTA  T) 

4830  IF(ADEL.LE.TOL)  GO  10  500 

4840  IF(H(JN.IT).LT.TOL)  GO  TO  300 

4850  IF(GG(JN,ir).LT.TOL)  GO  10  300 

4860  SS  =  S(JN.IT)-SUO.IT) 

4870  SST=0.5»SS/DELIAT 

4880  Hl  =  1 .0/H(JN,n) 

489'.  GG1=  I  .O/GGvJN.  IT ) 

4'tOO  [iQ  201  ISM, ,5 

4vt0  C( IS)=hS»L ( IS) 

4920  no  201  JS=1,3 

1 V 3 0  B  ( 1 3 .  JS /  - 1 '  8  )  1 S ,  JS  •  +60. 1 

4940  -Oi  fib I  S  ,  Jb  ) -Hi  »-A  (  IS,  JS  ) 

4950  CALL  INOERS(AS,ASI .lOL  I 

4960  IHIl.NE.i)  GU  TO  302 

4M'0  UftITE(6,40M  AS 

4980  UR  I  IE  ^  6 , 40o AS  I 

4990  U  R  I  I E  ( <j ,  4  V  ’  £1 

ivOO  Uix  [  1 1 '  0  .  iub  I  C 

.',’10  i'OO  CuhTIiNUE 

GO  302  IB -1,3 
SbiO  OU  202  IB- 1,. 3 

S'j4i)  aDRaT.IB.JB)=O.0 

3050  DO  202  K-l  ,3 

3060  202  UDR  (I  T ,  IB ,  JB  .1  =UgR  ( IT  .  IB ,  .jB  '  tASl  (  1B,(<  ) »  B  (  k  ,  JB  j 

S070  DO  203  1B=1  ,3 

SyBo  CR  '  1 1 . 16  )  =X0  ( IT .  IB 

'OVy  Ou  .03  I.  -  i  .  3 

'.‘100  204  p' i  1 ,  I  b  '  ' .  F'  .  ’  , ,  B  -  S I  i  B  ,  K  '  *  i,  4. } 

S’l'j  200  LCflTIr'UL 

112':  jOO  REi.m 

3!  30  Vj’,/  uH  1 1 1.  ( t .  4u  I  ' 

'■i'j  URI  1Hb,402  '  jN,rtl .  DLL  !  AT  .11'  JN  .ilT  ) .  GG  UN  .  H  T ' 

■1  1  50  4  00  F0RMATU0X,5E15.7) 

,160  401  FORnAl'GX,  3'jH  DELTAT.H,  OR  GG  ARE  ZERO. 

3170  402  F0RNAT(5X,2I5.3E15.7) 

31bO  403  FORNATIUHjFROM  lECOEF  NT-  ,I4//I0)(.5H  TH11,15x,2H  I. 

^■19’''  406  F0Rf1AT(15x,3Ei5.7  ) 

3200  407  FORHAT  (5X.3L15.S' 

=1210  ENG 


k  ( 


j2..0  subroutine  zsyfln 

S''’:  C  CQHF'tJTES  THE  COEFFICIENfS  OF  THE  LINEAR  EQUAIIONS  RESULTING  FOOn 
5240  C  THE  IMPLICIT  FORMULATION  OF  THE  POE  ON  THE  LINE  OF  SmtlLTRi 

5250  C  THATA=  0.0 

5260  COMMON/ INT /NTH, MTH, NS, DELTA! 

5220  COMMON/CDOI)/ODL,D,ODR,L'R 

5280  COMMON/VAR/XU 

5290  COMMON/CGEFPC/PC.RL 

5300  COMMON/ DA  TAIN/  I H ,  UP  ,  U  I  .  S  .IJPLP  .0  TlP.  UPL  1  .  U  IlT 

5310  C QMMO N / 6E  U I N KP  ,  K  ]  ,  H  ,  F  ,  Gb 

5320  LUMMON/LABC/  A.F.C 

-'3iO  LOnnON/CINI-'Ul  Ul.l  .OLP.IJLI  ,  VI.  I  ,Un  ,  Kl’ ,  ^i;  i  .Um.  I  .UflLF 

5Y4i'i  CUMAON'  JON  '  lii.  'ft 

.150  RFAi  tF.l'T 

'.3.50  iiintNSiuN  xon5o,3i 

'.j  .'  DIMENSION  PC',:’,!) 

5380  DIMENSION  UP 'I  2  , 1  50  )  .Ul  1  2 . 1  50  ) .  TH 2 . 1  5o  ' 

5  390  dimension  S  (  2 ,  I  5o  ) ,  UP'LP<2.  1 50 ) ,  U  rLP(2. 150  ; ,  UPl  T  <  2,1  50  / .  U  1 1  i  ■  .  .  I'J 

5400  DIMENSION  KP  (2,150).KT  (  2 , 1  50 )  ,H  (2, 1  50  )  ,1- (  2  .  I  50  ) ,  Gij  i  2  . 1  5'." 

5410  DIMENSION  D'  1  50 . 3 . 3 ) ,  UDL 1  50 . 3 ,3 )  .ODRl  150 .  i,  i ) ,  CK  i  150. ,3) 

5420  DIMENSION  A ( 3 , 3 ) . B i 3 , 3 ) , C ( 3) 

5430  DIMENSION  A3(3.3).  ASI0.3) 

5440  IT=i 

'.,(450  Mr-'^IT 

5460  AIJ'NA~A  TmN/HU  fUrt.I  C  .>  ,iip( -JN,  IT)) 

54  70  iJM  =  UT  1  JN,  IT  )'t:U  i  UN ,  I T ) '  UP  ( JN .  I T  it  Ur  I  JN.  1 1  ) 

5480  UM=SGRT(UM) 

5490  SA  =  UT  uJN,  IT  j/UiM 

5500  CAUr-'UN,  I  [ ) /Urt 

'.'510  ULP  =  UPLPUN.  I  r ) 

5520  OLi-'=U  TLP  'UN ,  1  i  ' 

‘.•;530  IJLr  =  IJPU' JN.IT) 

5540  VLr  =  UILT(JN.ir  I 

5550  X  Kt' =l'.l ' '.  jN  ,  LI  / 

'j 5t)0  Xi, T  =1 , 1 jN  .  i  i  .' 

.  j ,  0  u  n  L  I  -  L  Pi  t  U 1. 1  r  S I V  0  L  i 

'.56'j  UmlP-Cm4ULPUA  rOLP 

',j590  CALL  COEFF'LXViI  1  ,1  '  .XOv  I  T.3)  .SA.CA.XOI  1  I  .2)  I 

'-■600  IF  (HUN,  I  r )  .LT.0.000001  )  Ou  TO  300 

5610  IF(G&(  JN,  I  [  )  .L  I  ..j.Ou'Jl'jl  I  bU  lU  ' 

GbJ.'J  S'i-S(  Jh,  I  I  I  jO  ,  i  I 

' )  6  3  'J  ;.  J  1  - .  ■'  ’  ,  5  L 1 1  .  I  . 

‘S'!  .  rb  r  U  .'J*5';.  1 

■  jj'J  '1  [  -  I  .  V  H '  jH  ,  1  I  ' 

' .  t  6  'J  L  G  1  -  !  .  r  jf'  ,  1  .  ' 
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5A70 

DO  201  IS-1.3 

5680 

CR(ir  I3)=0.0 

5690 

C(:[S)=S3*C(IS) 

5700 

DO  201  J3=1 .3 

5710 

ODR(1T,IS,JS)=0.0 

5720 

B(IS,JS)=3ST*B(IS,JS)*G6I 

5730 

201 

AS(IS,JS)=HI »A(1S.J3) 

5740 

IiET  =  AS(1 ,1  )»(4S(3,3)-A'8(1 .3)+AS(3.1 ) 

5750 

DETI^I .O/Dtl 

5760 

OliKi  I  1.1.2)=  DliTI  MA3(3,3):t:B(  1 ,2  )- A3i  i .  3  > 

5770 

GDR  (1  r ,  3 . 2 )  =  -  DET 1  +  ( AS  i  3 . 1  >  ( 1 . 2  :>  -AS i  1  , 1  ) 

5780 

CRl  IT ,  1  )  =  XOH  IT  ,  1  i  +  DETI  HAS(3. 3)*i:i  1  )  -AS',  ’ 

N/yO 

CR(ir.2)=X0(l .2) 

5800 

CR  ( I  T  .  3  )=xy'.  .1  f.  3.)-2iLT  l  +  'ASCi.  1  )  IJ  -AS(  1 

5810 

jOO 

KETURN 

5820 

300 

URITE<6.40I  1 

'5830 

Ul<ITt',6. 402)  Ji'T.flT  .BEL  IhT  .H(  JN.n  I  ■  ,GG\ j,< 

5840 

STOP 

5350 

4  00 

PuRMAK iOX.jLiS./) 

'j3oy 

4Ul 

POkiIhI'jV,  j'Jn  DELIA  I.H,  Ok  bC'  Akt  ZERO. 

'd ''  ■') 

402 

PQd:nATl5A,2I5,3E15.7) 

5  880 

407 

PORIIAT  (5X, 31:15.6) 

'5090 

Efin 

■t  &  (  3  .  ;  ' 

,  3  !  t  C  '  3 ;  ; 

.  1 )  h;  r  i ) ) 
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5900  SUHROUTINE  FSYPLN 

5910  C  COrtPUTES  THE  COEFFICIENTS  OF  [HE  LINEAR  EQUATIONS  RESUi,  IlHO  f  OGn 

5920  C  THE  IhPLICIT  FORMULATION  OF  THE  POE  ON  THE  LINE  OF  Sinnukr 

'.930  C  THATA=  0.0 

5940  COMMON/ INT/NTH,MTH, NS. DELI AT 

5950  COMMON/CDOD/ODL.Et.UDR.CR 

■.9r.1  COMMON/VAR/XO 

'-.9"<)  LOiiMON/CQEFPC/PC  .KL 

■5980  C  0  n  M  0  N  /  D  AT  A I N  /  T  H .  UF' .  U  f .  3 ,  UPLP .  U I LP ,  UPL T .  U  T  L  T 

':.990  COMMON^GEOIN/KP.KT.H.F.OG 

6000  COMMON/CABC/  A.U.C 

A010  COMMON/lINPUT/ULP.L'LP.ULT  .OlT.UM.XKP.XKT.IJML!  .UMLi- 

AO:*''  COMMON/JQN/ JO.  JN 

REAL  FP.KT 

<4040  [I  [MENS I  ON  xU(  150.5  ) 

DIMEN'^ICIN  PC',/. 4) 

6060  DIMENSION  0P(  /  .  1  j'J  )  .(JT  ^2.  i SO  ) .  TH (Z .  1 50 ) 

■6070  Dimension  si/.IjO) .oplp';/,  p50 .» .utlp<2.  iSO; .op.  i  i 2 .  i S'j ’  .utl .  i ■. 

.^OS'J  DIMENSION  KP  i2.150).ia  ( 2 . 1 50 )  .H(  2 . )  5v  • 2  .  i  50 ) .  Ob  , .  ij'.) ) 

3  090  5  i  He  NS  I  ON  lUl  50.3 , 5) ,  DDH  1 50 . 3 .3  >  .ODia  PjO  .  i.i  *  .S'".  '  50  .  5 ' 

.3100  DIMENSION  A(  3. 3 1  .&<3,2)  ,0(5- 

■v  H OIMEnSIuN  aS(.3,.5'.  Hit'.  ,.3/ 

■  ■N  iO  I  i  -  N  i  H 

::.;oO  n;-ir 

/  !  4 6  Al.  i'  nii  -  h  '  ii;-  .  ■  !  '  JN  .  1  1  ' ,  <)P  (  JN  .  1 1  )  I 

•  Un-U  I  JN .  IT )  .iJTv  Jh  .  I  f  )4UPlJN,  l  T  )  tuP lJN.  I  T  ) 

<6160  un  =  SOKI(Ofl) 

<61  70  3A  =  UT(  JN.n  ).  on 

<6180  CA-UpUN.I  Ti/IjH 

<3  190  1JLP  =  UPLI- '  JN.  1  1  ) 

<3200  OLI-':LiTLP(  Jrt.i  I  ) 

i.  i  0  UL  I  =(jPL  I  '  jN ,  I  i  ' 

i  L  0  ')  L  1  b  I  L  I  '  J  N  .  .  !  / 

,U-,i-’-KP(  JN.  I  I  ) 

•3240  Xl.l^F.  K  JN,  l:  ' 

■j.j';  0  ii  L 1  -  -  ii ' !  )i . : 

onLr-CH)ijL,  • 

.'  j.’O  CALL  COEFT  ■;  X  ,  x'J  ■  [ T  ,  3  ) . SA . CA .  XM(  IT , 2  ) ) 

6  280  IF(H(JN,II  )  .LT  .O.O'JvyOI  )  GO  TO  3'J'j 

.6290  IF(GG(  JN.IT)  .1,  I  .'i.O'J'DOOD  GO  TO  300 

<630')  6S^S(  JN,IT  )-S(  JG.IT) 

■6310  S  S  T  -  6  .  ',j )  bC  /  IN-  L  I A I 

'3.’0  bST't.O^SSl 

:.35j  H,<- !  JN,  i  T 1 

,3  3  4')  bO!  •-!  .O.'bO  PJN  ,  IT  ) 
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4350 

DO  201  IS=1,3 

4340 

CR(IT.IS)=0.0 

4370 

C(IS)=SS*C<IS) 

4380 

DO  201  JS=1,3 

4390 

ODR(1T,IS,JS)=0.0 

4400 

B(IS,JS)=SST:»B(IS,JS)*GGI 

4410 

201 

AS(IS,JS)=HI+A<IS,JS) 

6  420 

BET=ASn,1  )»AS(3,3)-AS(1 ,3)PAS(3.1 ) 

4430 

DETI=1 .0/DET 

6440 

0BK(IT.I.2)=  IiEnKAS(3.3)  PB(  1 ,  )-AS(1,3 

4450 

ODR(  IT,3,2  )=-DETI  »(AS(  3, 1 )  ii6(  1 .2)-A3U  .  1 

6  4  60 

CR(ir.l  )  =  xyaT.1  )tDETH(AS(:3.3:)tC(1 )  -AGt 

647u 

i:R(IT.2)  =  XV(1  ,2) 

4430 

CR(IT.3)=XUr[T.i)-LiETI»lAS'..3.1)4:CM  )  -A’JI 

4490 

500 

REIURN 

6500 

300 

URIIE(6,40 1 1 

6j  I  0 

URlTh(6,402)  ■Jf'l,  rt  f ,  DLL  fAT  ,  H  t  Jiv.iiT ,'.'6  .  J 

6  520 

STOP 

6530 

400 

FORMAT  (Ui.X.jLIS.  ■- 

■"I  j  ^  1 

4  0  i 

F  uRiIm  1 '.j.X.  3'JH  OtLTAI.ll.  UR  Ob  ARII  :£KU. 

4  550 

402 

F0R(iAT(5X.  2IS.3f  ••5.,’) 

..,540 

4ti7 

Format  ■ ''X  .  3i'.  15.6) 

AS  )0 

f  )<  0 
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NBi  3.2)  > 

)  '  B i .  2 ) ) 
1,3) PC ( 3 ) ) 

I  ,  1  I  t  C  3  .1  I 
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SUBROUTINE  FS<H) 


A  580 
6590 

6600  C  ALL  FUNCTIONS  COMPUTED  HERE  ARE  A  FUNCTION  OF  H 

6610  C  FB<J)  ARE  THE  FUNCTIONS  F  BAR  SUBSCRIP  J 

6620  C  FBP  AND  FBPP  ARE  THE  FIRST  AND  SECOND  DERIVATIVES  OF  FB 

6630  C  GPH  IS  G+H  WHERE  G=2*H/(H-1) 

66A0 

6650  COMNON/CF/FB 

6660  CQMHON/CI-D/FBP,FBPP 

6670  UINENSION  FB(4J,FBP(4)  .FBPP(4)  .F(4)  .FP'iA.-  .FPP(  4) 

6680  Hh1 -  h-1  .0 

ov)90 

6700  C  THE  i-OLLOUING  IF  STATEMENT  DETERMINES  IF  THERE  IS  A  SINGULAR; 1 i  I 
-'10  C  ONE  OF  THE  FB  FUNCTIONS. 

6  720 

6730  If(HHI)  fjOl.SOUOl 

67-10  101  Hfll  1  =  1 .0/HM1 

6750  HM1IS=H(iri*HMlI 

6760  1  00  H I  =  1  . 0 / H 

6 '70  HIS=HIU-II 

6730  HS=H*H 

o790  HPI=H+1.0 

o6v0  1  02  lip' 1  i 1  .. 'J/ Hr' 1 

■jd  1  0  HP  I  i  5  -HP  i  t  '  iir 

SoJO  ii =  H  +  ;  .  0 

■  iOi-  103  HP2I=t  .O/riPi 
.:d40  Hr2iS--HP2I  t'HPil 

od'jO  HP3=H+3.0 

sdoO  104  HP.3I=  l.O/HP:j 
o3  7o  HP'3  IS=HP3I  +HP3 1 

6880  HP4=HM.O 

.j8'>’0  1  OS  Hi-  4I  --1  .'j/HP4 

s900  HP  'll  b -HP  4 1  -t-Hr'  4 1 

i^910  HrS=Ht5.0 

o’^JO  106  Hi-'bJ  ■  i  .0/Hi  j 
ij  r  j  i,‘  H  P  S  1  J  -  i  i  P  'j  I  Mir  S  L 

‘f  4  ’ 

-  E  Fl  GPH  and  IIS  liLKI'.'fi  f  lOES 

0  'j  P  fi  =  H  1 H  P  I  t  h  I"!  I  I 

-  -  ■■  •  P  =  Hb  A  .  -'1  .0 

./'VO  GPHP  ^P^UINIIS 

7O0O 

.  010  C  COMPUTE  F  AND  ITS  F  IPS  I  DEi'IVAlIVE  PP 
'020 


168 


7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

7130 

7140  L 

7150 

7160 

7170 

7  130 

7200 
7  2 1 0 
7220 
7230 
^^'lO 
.'250 


F(1)=HI-2.0+HP1I+HP21 

FPd  )  =  -<HlS-2.0=*HP1IS+HP2IS) 

F(2)=HI-4.0*HP11+HP2I+4.0»HP3I-2.0»HP5I 

FP(2)=-(H  IS-4.0=»HP1IS+HP21S+4,0^*HP3IS-2.0*^Hr-'5IS) 

F(3)=  (H1-4.0*HP1I+6.0*HP  2I-4,0»HP3I  +  HF'4I ) 

FP(3)=-(HIS-4.0*HP1IS+6.0*HP2IS-4.0*HP3IS+HP4IS) 

F(4)=2.0*(HP1I-2.0*HP3I+HP5I) 

FP(4)=-2.0*(HP1IS-2.0^»HP3IS+HP5IS) 

F(4)=-F<4) 

FP(4)--r-P(4) 


CQrtPUTF  Fe.FOP 


DQ  200  I  ■■^1.4 
r6a:'= -F  (D^tGF'H 

200  F BP  k  A )  ■■■  - i FP { I ) *61 '  ri+F ( I ) »ijl-hP ) 

500  RETURN 

501  UR .ITE <6 . 400 )  H 
STOP 

400  FORMAT  <44H1  singularity  IN  ONE  OF  THE  F  i  iQM  j 
13h2H=  1F7.4  ) 

End 


! 
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7260 

SUBROUTINE  SOLVE 

7270 

C 

THIS  SUBROUTINE  SOLVES  THE  LINEAR  EQUATIONS  RESULTING  FROM 

THE 

7280 

c 

0  BPIEN, HYMAN, AND  KAPLAN  IHPLICIT  FORMULATION.  A  DIRECT  GAUSSIAN 

7290 

c 

REDUCTION  IS  APPLIED  TO  THE  SPARSE  COEFFICIENT  MATRIX. 

7300 

c 

THE  COEFFICIENT  MATRIX  HAS  THE  TRI-DIAGONAL  FORM 

7310 

c 

<0DL(I),D(1),0DR(I))  UHERE  I  STANDS  FOR  THE  I-TH  ROU  AND 

ODE 1 

’320 

c 

D(I),  AND  ODR(I)  ARE  3*3  MATRICES. 

■’330 

c 

THE  SOLUTION  IS  XO. 

7340 

COMMON.INr/NIh.rtTH.MS.DELTAT 

■'350 

cqmmon/oar/xv 

7360 

CaMML)N7CDUD/lJDL.D.(jDR.CR 

7370 

COMflON/TOLEKN/  lUL 

7380 

DIMENSION  D<  150,  . 3,3 1 ,0£iL(  150.3.5)  .UDR(  1 50. 3 . 3  j  .CR ( 1 50 , 3 ) 

7390 

DIMENSION  XV(150,3) 

7400 

DIMENSION  Ai 3.3  1  ,AI(3 .3) .B(3,3; .UM( 3,3) ,  Y  (3) 

7410 

WRITE  U,  405  )  i  )OLiR  (  3.  i ,  J) .  J-1 ,3)  .CRli.l  )  ,XV<  3. 1 ; ,  1  •- 1  ,  j) 

7420 

c 

7430 

c 

GAUSSIAN  REDUCTION  BtGINb 

7440 

DO  205  II  -1 .NIH 

450 

Du  205  i  l..3 

/'4o0 

205 

1 1 .  n  -CK‘  ll ,  1  .1 

.■’4  70 

c 

AI  THIS  KOINI  XO  IS  RIGHf  SIDE  OF  EQUAIIlIH. 

7480 

DO  206  1=1,3 

7490 

DO  206  J  =  1  ,3 

'500 

UM(I. J)=0,O 

7510 

.11-  ( 1  .£0.  J  .)  UfU  i  ,  J  1  M  .'2 

/'520 

D  U  ,  I .  .J)  -ijn  •.  1 .  j) 

.530 

ODL i ,  .1 ,  j  '  -  ''juf  ( ; .  1 .  j  ■ 

■5-’V 

20  i 

L  ij  f(  T I  NLl 

75V. 

.'i;  jii'j  li-2,NTH 

j  V 

MH=  1 1 

.'570 

Du  ..  '1  I  r  1  ,  j, 

.'53o 

nu  2j.’ 

.'  5  "0 

D',  ,[  1 , 1  .  J  1.2) 

7600 

ODLai.I.J)- -OIiKdl.  i.J) 

.’6i0 

DO  204  K-l .3 

7620 

204 

D  1 1 . 1 .  .J  )  =  D  (I  I ,  I .  J  )  +  0  D  R  ( 1 1 . 1 .  K  )  ♦  U  D  R  ( 11  - 1  ,  K  ,  J 

7630 

207 

A(I,J)=D(II,I,J; 

7  640 

DO  201  K=1 ,3 

7650 

X  V  (I  I ,  I )  =X'7  ■:  1 1 . 1 1  ^ODl:  (I  I ,  I ,  K )  • ;.  V  ( 1 1  - 1 .  K ) 

7660 

201 

CONTINUE 

7670 

i 

INVER5  COflRUlLS  IHII  INOILRbE  01  SHE  3*3  rlAiRU  ft. 

7  680 

call  IN0ER3iA,Al, fOL) 

7  0  9  0 

IF'.  1 1.  HE.  3  1  GO  li;  .300 

7700 

URITE).6,404)  A 

150 


7710 

URITE(6.404)  AI 

7720 

UR:[TE<6,404)  (XV(3,I).1=1  .3) 

7730 

300 

CONTINUE 

7740 

DO  202  1=1 .3 

7750 

DO  203  J=1.3 

7760 

A(:[,J)=0.0 

7770 

B(I.J)=0,0 

7780 

't(i)  =  0.0 

777  0 

DU  203  K=1.3 

780  0 

i4 (  I ,  J  )  =  A  ^  I  ,  J ;  +  Al  1 1 ,  K  )  *0 1 1 1 ,  t. 

781  V 

2o3 

B  U  .  J)=6(  I ,  J  itAI ( T  ,K  1  »0Dl<(  11 

b  7 

DO  2o2  K=1.3 

b  3  0 

202 

Y  Cl )  -  a  I )  +  AI  ( 1 .  K .)  »xv a  1 , 1; ) 

7840 

DO  208  1=1,3 

CD 

o 

iAy=ABS(T(l)) 

.  860 

II-  CYAV  .LT  .  1  .Ot-I  2  )  Uii  ■Q.‘J 

7870 

XvU  I ,  I  ,'  =  i(  I ) 

■'88'^' 

Du  208  J=(,3 

890 

A  n  0  =  A  B  S  i  A  f  t  .  J  '  ' 

i  7  1  fic-iV . L  1 .  i  .  Oil  !  2 )  A  ;  I .  J )  =’J . 0 
BAV-AbSlB'  (.  J.'.' 

If  (BAO.L  r,  i  .Ol  -liifri 

-  w  'j 

D?  1  I  ,  1  .  .  .  =H'.  I  .  Ji 

oDl-: .  II .  1 i=.l'l  I .  J) 

'-5'i 

ado=ab3  ■: A>  I .  J)  -Uill I .  J '  > 

■  *  0  il 

If  •,r>B0.0il.i.’JE-12)  UOTO  502 

.  w  ;y 

208 

CONTINUE 

7  780 

200 

CUNT  INOI- 

■?90 

c 

IHt  bAU'/jIAN  REDUCIIUN  I'j  Lui 

A 1  0 

1" 

HAS  BEEN  ktf'LACED  BY  0.0. 

;:070 

:U'  iv 

L 

BEbiri  Back  bUbSiiiUTiOii. 

Bo  40 

1, 

B050 

DO  2.70  IB^l.iilH 

BjbO 

L  -  lY  T  B  -  i  B 

DO  221  1=1.3 

BO80 

DO  221  K-1 .3 

;  <  0  7  0 

2j1 

1'7’L.I  '=X0(L.I)-UDK<L.I.I  I'X' 

'  •  I  ■;  1 

220 

CONIIrlUE 

i:  I  I  7  L 

^  ’ll  I 

>1  iO  c 

!iI4o  L 


LlJriPLl" '  lii.!. 

To  NUU  TH£  SuHJlIUi'i, 


8170 

DO  211  11  =  1, NTH 

8180 

211 

CONTINUE 

8190 

f1II  =  1 

8200 

DO  209  1=1,3 

821U 

Y(1)=XV(1,1) 

8220 

DO  210  K=l ,3 

8230 

210 

T(I) --riD-ODLd  ,l,l<)*XO(2,K) 

8240 

ADSV  =  ABS1  Hi) -CR<1  ,1) ) 

8250 

IF(AB&O.GE.  1 .012-05)  GOlU  503 

a280 

209 

continue 

8  2/0 

8U  212  II  '/.(irH 

8280 

n  1 1  =  1 1 

■JiTU 

uu  Id. -3 

:  ,  ,ij 

1  ( :'  =  XV(  11,1) 

j  ;  , 

j  1  J 

DO  213  K-1.3 

32o 

212 

T  ( 1)  -Y  1, 1 )  HjDL  ( 1 1 , 1  ,K  ) .  X’.''  11-1  ,1- )  -UDL'.  11. 1  . 

8330 

AD3V=ABS  (Y(I)-lR(II.I'  ) 

83  40 

IFiaBSV.GE.1  .012-05)  GOTO  503 

8350 

212 

CONTINUE 

8360 

I'll  I --NTH 

8370 

DO  214  I  d  ,  3 

8380 

Yd)=>;y(NTH,I  1 

8390 

DO  215  K=1.3 

8400 

215 

Y  ( I )  d  1.  [ )  * UVL  ( N  TH .  1 .  K  V  ( r.  r  H  ,1 : ) 

8410 

ABSV  =  A6b',  Y'.  I  )  Lh'(NIH,I) ) 

8420 

I F  (  ABSV .  IjE  .  1  .  OL '05 )  UOiO  5y3 

8430 

214 

CONTINUE 

o  4  4  0 

F"i2 1  UKN 

84  jO 

80  1 

TH,4TA=(mi-l  ) HiELIflT 

4o0 

ns=nll 

8  4/0 

UR  HE  ^0.  'lO!)  >  n3.  THATG 

8  4  8  '.I 

U  R 1 1 E  6 . 4  0  8  / 

8490 

WKlTIdb,  407  "  OtrtI  1 . 1,  J  1 .  ;  d  .  3)  .CRiH  1 1 . 1  ' .  I  - 1 

C  .1  . 

J  J  J  ‘J 

URITE(£i.4u6)  mODL(NII,I.  J'.  J'd  .  3)  . '  OOl'i  fli  1 . 1 

M  S  !  M 

b  1  UF 

t  J’ 

J  0  2 

IHATM-^'flil-ljlLlttlril 

-  J  '.0 

n  J  ■-  f1  1  1 

r 

‘.4R  L  T E  '  o .  4'd  '  f;  _ ,  !  '1(1  ( 1  ■ 

c  c 

•  ■  J  w'  1 

2  i  0  K 

V'.  ‘ 

i  H n  1  1 1  =  '.  n  I  1  1  1  1  [l d.  1  A T 

- 

n  j-fll  i 

w  J  0  ‘7 

UKI  II:  (6.4'/2  '  n-;.  iHni8 

::J590 

URI  It  > 4'd  1  I , '  i.K  ■.rli  t ,  n.) .  it  -  1 . 

o  0  0  0 

b  f  0  f ' 

8610  l.'  HOSOL  il£ANb  NO  bOLUT  lUN  UAo  OHiAiNtLi  mji.;  ',i  i-IiHti':  NU 1  Ih! 

86?0  L  IDENTlIf  HATRIX  OR  A  SUBSTnuTlUN  OF  I'HIl  SOLUIlOi-  I' i  v  r-J. 

>•(■‘.30  C  HELD  THE  CORRECT  RIGHT  SIDE. 

H6AU  400  FORMAT  (33IU'  MATRIX  IS  SINGULAK  AT  STATION  ^  1I':..'-m.8H  THAI 

H6'.0  $.  TFT  0.4) 

8660  40T  FORMATT  4VH2N0  SOLUTION  FUI^  0  IS  NOT  IDENTITT  AT  STATIUON-^ 

8670  I1I5,5X.7H  THATA=  .tF10.4) 

8680  402  FORMAT  (  56H2NU  SOLUTION  FOR  I  IS  NUT  LUUAL  RIUHI  biUL  A'  HAT 

Hr,9n  t=  ,TI5.SX.7H  THATA=  .1i;0.4) 

8700  474  F:JRMAT(///(3£15.7)) 

871  0  40'j  F0RniTr(5ElS.7  I 

s720  406  FORMAT  k St  1 S ./' J 

■j  '  j •}  4  0 7  F URMA I '  5X  .  4E  1 5 .  •’  > 

:.'4u  408  F  QRMAT 'IbX  .  4jh  F  kOM  SOL'.’E  0.  Lh.  ODL,  fiNC  Ui’F'  00.,;  Eut  ; 

END 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1.  DTNSRDC  REPORTS,  A  FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH 
NICAL  VALUE.  THEY  CARRY  A  CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS,  A  SEMIFORMAL  SERIES.  CONTAIN  INFORMATION  OF  A  PRELIM 
INARY,  TEMPORARY,  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A  DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES.  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN¬ 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A  CASE  BY-CASE 
BASIS. 


